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ABSTRACT 


The DYNASOR II program is used for the DYnamic Nonlinear Analysis of 
Shells Of Revolution. The equations of motion of the shell are solved 
using Houbolt's numerical procedure. The displacements and stress resultants 
can be determined for both symmetrical and asymmetrical loading conditions. 
Asymmetrical dynamic buckling can be investigated. Solutions can be obtained 
for highly nonlinear problems utilizing as many as five of the harmonics 
generated by SAMMSOR program. A restart capability allows the user to 
restart the program at a specified time. 


till' * 



J-1.2 


DI NASJ B II 


October 1972 


ACKN3SLEDGEHENTS 

This research was supported under Sandia Contract 82-3683, Sandia 
Corporation, Albuquerque, New Mexico, and NASA Grant N3L-44-0J1-044, 
Banned Spacecraft Center, Houston, Texas- Appreciation is expressed to 
Dr. Halter Von Riesemann of Sandia and Dr. Fred Stebbins of the Manned 
Spacecraft Center who served technical monitors for this research 
effort. 

Appreciation is also expressed to the principal investigator for the 
research grants. Dr. James A. Stricklin, Professor, Aerospace Engine- 
ering Department, Texas ASM university, for his supervision and guidance 
in the development of this program. 



J-1.3 


TABLE OF CONTENTS 

I. Abstract J-1.1 

II. Acknowledgements J-1.2 

III. System Overview J-1.5 

IV. System Flowchart J-1.7 

V. Environment J-1.8 

VI. Introduction J-1.9 

VII. Section I Method of Analysis J-1.10 

VIII. Section II User Guidelines and Program Limitations J-1.1 8 

IX. Section III Program Input J- 1 .21 

I. Run Control Cards J-1.23 

II. Case Identification Cards J-1.23 

III. Case Control Cards J -1 .25 

IV. Circumferential Angle Cards J-1.28 

V. Fourier Harmonics Card J-1.29 

VI. Nodal Restraint Cards J-1.30 

VII. Initial Conditions Cards J-1.31 

VIII. Coefficients of Thermal Expansion J-1.34 

IX. Applied Loads, Temperatures, and Temperature Gradients. . . J-1.35 

X. Final Data Card for a Case J-1.48 

XI. Final Data Card for a Run J-1.48 



J-1.4 


X. Section IV Example Problems J-1.50 

XI. References J-1.60 

XII. Appendix - Use of Restart Option J-1.61 

XIII. Appendix - Load and Temperature Input Discussion J -1 .63 

XIV. Functional Flowcharts J-1.70 



System Overview 



DYNASOR II 


J-1.5 


October 1972 


SOR — Shell Of Revolution 


Computer Programs 


& family of compatible computer codes for the analysis of the shell 
of revolution (SOR) structures has been developed by researchers at 
Texas ASH University. These analyses employ the matrix displacement 
method of structural analysis utilizing a curved shell element. 
Geometrically nonlinear static and dynamic analyses can be conducted 
using these codes. The important natural frequencies and mode shapes 
can also be determined by employing another of the codes. Efficient 
programming provides codes capable of performing these desired analyses 
in relatively small amounts of computer time. 

Each of these programs has been extensively tested using problems the 
solutions to which have been reported by other researchers in order to 
establish the validity of the codas. In addition, the capabilities of 
the codes have been demonstrated in a number of publications by 
presenting solutions to problems which were unsolved by other 
researchers. 

SAHHSOR II - stiffness And Mass Matrices for Shells of Revolution a^re 
generated utilizing the first member of this family. This program 
accepts a description of the structure in terms of the coordinates and 
slopes of the nodes and the properties of the elements joining the 
nodes. For shells with simple geometries (such as cylinders, shallow 
caps, hemispheres, etc.) the shell geometry can be internally 
generated. Utilizing the element properties, the structural stiffness 
and mass matrices are generated for as many as twenty harmonics and 
stored on magnetic tape. Each of the other SOR programs utilizes the 
output tape generated by SAHMSOR as input data for the respective 
analyses. One advantage of creating the stiffness and mass matrices in 
a separate program is that a variety of analyses can be performed on the 
same shell configuration without having to create the matrices more than 
once. Obviously, a variety of boundary and loading conditiions can be 
employed without having to create new mass and stiffness matrices for 
each case. 

SNASOR II - The Static Nonlinear analysis of shells Of Revolution 
subjected to arbitrary mechanical and thermal loading is performed using 
the second computer coda. Utilizing the stiffness matrices generated by 
SAHHSOR and the loading conditions and boundary conditions input to 
SNASOR II, the equilibrium equations for the structure are generated. 
The nonlinear strain energy terns result in pseudo generalized forces 
(as functions of the displacements) which are combined with the applied 
generalized forces. The resulting set of nonlinear algebraic equili- 
brium equations is solvad by one of several methods: Newtoa-Raphson 
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type iteration, incremental stiffness method, or a modified incremental 
stiffness method. In general, the Newton-Raphson procedure is the best 
and yields accurate results for highly nonlinear problems. 

DYNASOR II - The thicd code is used for the DYnamic Nonlinear 
Analysis of Shells Of Revolution. The equations of motion of the shell 
are solved using Houbolt's numerical procedure with the nonlinear terms 
being moved to the right-hand side of the equilibrium equations and 
again treated as generalized loads. The displacements and stress 
resultants can be determined for both symmetrical and asymmetrical 
loading conditions. Asymmetrical dynamic buckling can be investigated 
using this program, solutions can be obtained for highly nonlinear 
problems in reasonable periods of time on the computer utilizing as many 
as five of the harmonics generated in SAMMSOR. A restart capability is 
incorporated in this code which allows the user to restart the program' 
at a specified time without having to expend the computer time necessary 
to regenerate the prior response. 

FAMSOR - Frequencies And Modes for Shells of Revolution can be 
determined using the fourth code. Using the stiffness matrix generated 
by SAMMSOR and a lumped mass representation developed from the consis- 
tent mass matrix generated by SAMMSOR, a specified number of natural 
frequencies (beginning with the lowest or fundamental frequency) are 
obtained using the inverse iteration method. The mode shapes for each 
of the frequencies are also obtained. 
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ENVIRONMENT 


The DYNASOR II program runs under 0S/360 MFT or MVT and requires 
220K of memory on an IBM S/360 computer. The system must also have a 
card reader, printer, 3 9-track tape drives and 2314 disk storage. 
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INTRODUCTION 


The DYNASOR II (DYnamic Nonlinear Analysis of Shells Of Revolution) 
code has been developed to determine the time varying response of shells 
of revolution to a variety of loading conditions. The coda utiilizes 
the stiffness and mass matrices created by the SAMMSOR code for selected 
harmonics, generates generalized forces from a mechanical and thermal 
load history, and solves the resulting initial value problem. This 
report is a user's guide for the DYNASOR II code and is divided into 
four self-contained sections with an extended appendix. 

The first section describes the method of analysis used to obtain the 
displacements, stresses, and stress resultants for the desired time 
increments. The formulation of the eguations of motion is presented 
along with the numerical technique employed to obtain the solution these 
eguations. 

A section is then presented to enumerate the limitations of the code 
and to provide valuable guidelines to aid the user in performing the 
desired analyses. The limitations result partly from the procedures 
utilized in the method of analysis and partly from the storage capacity 
and programming procedures employed. 

A description of the input data required by the DYNASOR II code is 
presented in the third section. Examples are provided in instances 
where the wording might, at first glance, appear to be unclear or 
insufficient. The limitations placed upon the input parameters are once 
again enumerated. 

The final section contains selected example problems which are 
designed to illustrate the wide variety of input variations allowed by 
the code. A copy of the input data required for each of the cases is 
presented along with selected values of the output data. A thorough 
understanding of these example problems is mandatory if the user is to 
become adept at operating the coda. 

The extended appendix which follows the main report^ should prove to 
be extremely helpful if a thorough understanding s of the program is 
desired. A description of the subroutines and the significant Fortran 
variables is supported by the presence of the subroutine call map and a 
flow chart of the basic operations of the code. The sections describing 
the restart capability and the specification of the loads should prove 
invaluable to users who desire to obtain optimum performance from the 
code. A discussion of the program output is then followed by a 
description of the changes necessary to modify the capacity of the code. 
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SECTION I 


METHOD OF ANALYSIS 


Introduction 


The purpose of this section is to proviia theoretical documentation 
of the equations and procedures employed in the DYNASOR II code to 
perform the Dynamic Nonlinear Analysis of Shells of Revolution. The 
matrix displacement method of a stFuctural an aTy sis is utilized. Since 
the documentation for the development of the stiffness and mass matrices 
has been adequately presented in the SAM3S0R II user's manual, 1 this 
section will not attempt to duplicate the previous presentation. The 
dynamic equations of motion are derived and the numerical techniques 
utilized to effect the solution of these equations are discussed. 


Equations of Motion 

The matrix displacement method is an energy formulation and, conse- 
quently, the equations of equilibrium for the nonlinear dynamic response 
are obtained from Lagrange's equation: 



5T 

•n 

3q, 


t i(L=q" 
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3q 


1 


( 1 ) 
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generalized degree of freedom i 
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Since the internal energy of a structure is a scalar quantity, the 
expression for this quantity may be separated into various parts. The 
formulation used in this analysis considers the internal energy as 




- < u t + 


(3) 


where the superscript, t, denotes the inclusion of thermal effects and 


U^ = strain energy based upon linear strain displacement relations 

°NL = strain energy due to the inclusion of nonlinear contributions 
* in the strain displacement relations 


By substituting Eq. 3 into Eq. 1 and talcing the nonlinear strain 
energy terms to the right-hand side, the equations of motion for the 
nonlinear dynamic analysis of shells of revolution can be written in 
matrix form as 


[M n ]{q n } + [K n ]{q n } = {Q n } + {Q?} - { ^NL } + { aU NL} (4) 

„ n n 

3q 3q 

The column matrix, (Q^J , of pseudo linear thermal loads is evaluated 
exactly from {3lj£ / 3g n } . it should be noted that Eq. 4 is valid for any 
harmonic n with the coupling between the harmonics appearing on the 
right-hand side. In this formulation the nonlinear terms are treated as 
pseudo generalized forces which are applied to the structure. The 
obvious advantage of this formulation is that a tremendous savings in 
compu ter time can be realized since the stiffness matrix does not change 
as the displacements vary and must, therefore, be calculated only once. 
Hith most other formulations for geometric nonLinearities, the stiffness 
matrix must be updated at each time step. 


Strain Displacement Relations 
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The DYNASOR II code utilizes the strain displacement equations given 
by Novozhilov 2 as restricted to shells of revolution with the additional 
assumption being made that the only important nonlinear contributions 
arise from rotations about the shell coordinate axes. The midsurface 
strain expressions can then be written as 


A I A « 

's * e s + ? e 13 


1 ” 2 
e = e + — e c 
e 9 6 2 23 


E = e + e e 
C S0 S0 13 23 


(5) 


The changes in curvature are those used in linear theory 


A 

X s ' - 3e 13 /3s 

x 6 ■ -(l/r)(3e 2 3/ae) - (l/r)sin* e ]3 (7) 

A A A 

x s e = - ( 1 /r) ( ae-j 3 / a e ) + (sin*/r)e 23 - ae 23 /9s 
Pseudo Nonlinear Forces 


The nonlinear tarns in this analysis are treated in tha same way as 
the generalized forces due to external loading. The generalized forces 
due to the nonlinearitas are evaluated for each element and are then 
combined at the nodes. A detailed presentation of tha procedures 
utilized in calculating tha nonlinear forces has bean made in Ref. 3 with 
an overview of the same material baing provided in Ref. 4. 

The pseudo forces are obtained by retaining strain energy terms 
containing the rotations raised to the fourth power. The retention of. 
the fourth order terns has been shown 5 to ba absolutely essential in 
cases where the nonlinear terms are substantial. The results presented 
in Ref. 6 for static shell analysis did not include the effects of the 
fourth order terms but results obtained after the incorporation of these 
terms revealed once again tha necessity of retaining t hes* 
contributions. 
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The generalized forces due to nonlinearitias are evaluated using 
linear displacement functions in the variables u, v, and w and employing 
strip integration over the length of the element. The integrals around 
the circumference are evaluated in closed form for the particular 
harmonics chosen. This procedure is simpler than the one employed in 
Ref. 6 and permits the nonlinear forces to be evaluated without the use 
of secondary storage on the computer. Detailed justification for this 
simplified procedure has been made in Ref. 3 so these arguments will 
not be enumerated again. It will suffice to note that due to the exact 
evaluation of the integrals in the circumferential direction, it is 
reasonable to expect rapid convergence as the number of harmonics is 
increased. Examples have shown (Ref. 3) that the use of the strip 
integration over the length of the element produces convergence quite 
rapidly as the number of elements is increased. 


Thermal Terms 

The temperature distribution and the temperature gradients in the 
normal direction for an element are expanded in a Fourier series in a 
manner similar to that used for the displacement functions. The 
temperatures and temperature gradients for an element are assumed 
constant over each element in the meridional direction with step 
variationns allowed in the circumferential direction. in cases where 
the step variation in the circumferential direction is not considered 
accurate enough, the Fourier coefficients may be specified as input 
information. 

The linear and nonlinear contributions are separated with the linear 
thermal loads for each harmonic being evaluated as 





( 8 ) 


Employing a coordinate transformation to change to partial derivatives 
with respect to the generalized shell coordinates, the problem reduces 
to the evaluation of the partial derivatives of u£ with respect to the 
coefficients a l> a 2’ ••• a 8 . These partial derivatives ace presented in 
Eqs. 26 of Ref. 3, and the terms of{Q^} are listed in the appendix of 
the same report. 

The nonlinear thermal loads are treated in essentially the same 
manner as the generalized forces due to non 1 i uea r i t ies are treated. 
Utilizing the same a pprox i a \ t ions is for the nonlinearities due to 
applied forces, the expression for the nonlinear thermal contribution is 
given by Eq. 28 of Ref. 3. 
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Stress Resultants 


In this code, the stress resultants are determined by the use of the 
assumed displacement functions and finite difference relations at the 
mid-point of each element. 


For orthotropic shells the stress resultants may be written as 
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The shear resultants are determined approximately from the equations 
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o£the undeformed shell as 

Is ■ F Hr < rM s ) + • 

« ’rife <«*>♦$-♦ 


M 0 sin4>] 

M se sin<j>] 


numerical Solution of Equations of Motion 

Since a closed-form solution of Eq. 4 is generally not available, a 
numerical method must be used to determine the solution to the equations 
of motion. A finite difference procedure developed by Houbolt (Ref. 7) 
has been selected for use in the DYNASOR II code. 

The equations of motion, Eq. 4, can be reduced to a system of 
equations of the form 


[M]{q} + [K]{q} = (F(t,q)} 


( 12 ) 


The load ma trix {F (t, q) } is equivalent to the right-hand side of Eq. 4. 
The initial displacements and velocities of the nodes must be specified 
and can be written as 


q 


o 


{<O 0 



(13) 


Utilizing the Houbolt procedure, the accelerations of the nodes of 
the shell are approximated by a third-order backwards difference 
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expression 


<Vl > ’ -QT < 2 Vl - 5< l n + Vl • Va 1 (14) 

Substitution of Eg. 14 into Eg. 12 yields the following expression 
which is utilized to solve for the displacements at the and of each time 
step, except the first one: 


(2[M] + (&t) 2 [K]) {q n+1 } - Ut) 2 (F(t,q) n+1 ) 


♦[M]{5q„- 4 q„_ )+ q n . 2 > 


05) 


To determine the displacements at the end of the first time step, the- 
following equation is employed 


(6[M] + (At) 2 [K]){q 1 } = (At) 2 {F(o,q 0 )} 

+ [M]{2(At) 2 q 0 + 6Atq 0 + 6q Q } 


It should be noted that the selection of the Houbolt procedure for 
inclusion in the code was made only after evaluating the advantages and 
disadvantages of a number of solution schemes (Ref. 3) . The Houbolt 
procedure proved to be the only method capable of providing stable 
solutions for highly nonlinear problems while utilizing a reasonably 
large time increment. The significant observations made in Ref. 8 
concerning Houbolt’s procedure will now be presented. 

It was found that double precision arithmetic is necessary if the 
code is utilized for highly nonlinear problems on an 13M 363/65 system 
(or comparable system). It is believed thit if he DYNASDR II code is 
used on computers which have a longer word length than the 353/65 system 
(such as the CDC 6600) double precision arithmetic will not be 
necessary. Utilizing the Houbolt scheme, it has been shown that the 
solution converges as the number of elements is increased. Although the 
Houbolt procedure has been shown to be unconditionally stable for the 
linear problem, it has found that this is not the case with tf£ 
nonlinear formulation. the damping inherent in the Houbolt procedure 
was noted in some instances, but the savings in computer time resulting 
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f cob employing this procedure Eir outweighs this slight drawback. 
Solutions (without thhe damping) were obtained, in some instances, in 
one-eighth (1/0) the amount of time required by other procedures. In 
all cases which were run, stable, undamped solutions were obtained using 
larger time increments than could be used with the other methods. 


Extrapolation of Forces 

In order to employ Eg. 15, the loads at the end of the ( n 1 ) t h time 
step must be known. These loads, because of the presence of the 
nonlinear terms, are a function of the displacements to be calculated 
and therefore cannot be evaluated exactly. The right-hand side of Eg. 
12 is, therefore, evaluated using a first-order Taylor's series expanded 
about the n-th increment: 


{F(t,q) n+1 } = {F(t,q) n } + ^ {F(t,q) n }At + 0(At) 2 (17) 

A second-order extrapolation process has been employed (Ref. 8), but 
the results indicated that the linear extrapolation procedure was more 

stable. 
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SECTION II 


USER GUIDELINES AND PROGRAM LIMITATIONS 


Guidelines for the use of the DYNASOR II code along with the 
limitations placed upon the analysis are enumerated in this section. 
Some of these limitations are the result of the procedures used to 
program the equations while other limitations are inherent in the 
formulation of the equations. Since most of the limitations are minor 
in nature, the DYNASOR II code may be used to solve a wide variety of 
important shell dynamics problems. 

The maximum number of elements which the program may use is fifty 
(50). The maximum number of harmonics which may be coupled for the- 
analysis is five (5). It is believed that these limitations will not 
hinder the user in solving most problems. However, since undoubtedly 
some users will want to modify the program capacity, instructions for 
increasing or decreasing the allowable number of elements and/ or 
harmonics are provided in appendix 8. 

In all analyses using the DYNASOR II code, the zeroth ( 0 ) harmonic 
must be specified as one of the input harmonics. 

The coefficients of thermal expansion are assumed to be constant in 
the two principal directions for any given element but may vary from 
element to element. 

The number of nodal restraints must be less than or equal to the' 
maximum number of degrees of freedom for each harmonic (234). 

The displacements of the nodes may be calculated for as many as 
twenty (20) angles around the circumference of the shell element. 

While the displacements are calculated at every time increment, it is 
necessary to calculate the stresses only at time steps where a printout 
of the stresses is desired. The stresses and stress resultants are 
calculated at the middle of the elements (s-dicection) for up to twenty 
(20) angles in the circumferential direction. The angles at which the 
stresses are calculated ace the same as those at which the displacements 
are determined. The stresses on both the inner and outer surfaces are 
determined. 

The units used in the program must be consistent with those used in 
the SAMNSOR code. All calculations in the versions supplied to the 
users of the code are given inch-pounds-seconds units. 
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The program accepts the mechanical and thermal load histories by 
accepting descriptions at discrete points in tima. The difference 
between the times for which loads are specified mast, in all cases, be 
greater than the value of the time increment used in solving the 
equations of motion. Tha load variation curve is approximated by 
assuming a linear variation of the generalized forces between the times 
at which the loads are specified. It may therefore be necessary to 
specify the loads and temperatures at a fairly large number of points in 
time if the loads vary rapidly with time. 

If the loads and/ or temperatures propagate in any direction (moving 
loads) , it will also be necessary to specify the loads at a fairly large 
number of points in time. 

Pressure loadings, temperatures, and temperature gradients are 
assumed to be constant over the meridional length of the element but may 
vary in the circumferential direction. The variation in the circum- 
ferential direction (except for shear loadings) must be symmetric about 
the meridian corresponding to 0=0 degrees. These loadings may be 
input either by specifying the values at a number of circumferential 
angles for each element or by specifying tha values of the Fourier 
coefficients for each harmonic. 

If the program is not being restarted, the loads and temperatures 
must be speciied at time T1 = 0.0. Times at which loads must be 
specified when restarting the program are noted in Appendix 8. 

One of the most important considerations in any dynamic analysis is 
the selection of the time increment to be used in the analysis. Several 
criteria have been developed for use in selecting a time increment in 
analyses utilizing finite difference techniques. Most of these critria 
require that the time increment be less than the time required for a 
signal to travel at the speed of sound from one difference point to the 
next. These criteria have been found (ref. 8) inadequate for use in 
this analysis. A "feel” for the selection of a time increment must be 
obtained by the user. To facilitate the development of this ••feel" the 
time increments utilized in a number of problems have been carefully 
documented in Refs. 3 and 4. In addition, the input data for the 
example problems should prove helpful. 

A restart capabilitty is incorporated in the coda to enable the user 
to calculate the response from a specified point in time without having 
to recalculate the response prior to this tima. A most valuable use of 
this capability arises if, after evaluation of the results of a run, it 
is decided to extend the calculations to observe more cycles of 
response. If it is desired to employ a different time increment (either 
smaller or larger), the user should refer ta the discussion in Appendix 
5. Effective use of the cestart capability can result in a substantial 
savings of computer time. In general, the information necessary for 
restarting the code should be placed on tape at least every 100-400 time 
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increments to insure that the information will be available if it is 
deemed desirable to restart the program. 

The pseudo loads due to the nonlinearities associated with the 
initial displacents are neglected when calculating the response at the 
end of the first time step. However, whan restarting the code, the 
initial increment utilizes both the mechanical and pseudo forces. 

An extended effort has been made to check all aspects of the code. 
Comparisons of the response obtained using DINASOR II with the results 
obtained by other researchers are presented in Ref. 3 and 4. Thesecom- 
parisons firmly establish the validity of the code. Although the 
programming logic and the formulation have been thoroughly checked to 
insure the correctness of the code, the authors assume no responsibility 
for the results obtained using the code. 
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SECTION III 
PROGRAM INPUT 


The DYNASOR II code has been written so that the code can be employed 
by researchers who are not familiar with the inner workings of the 
program. Utilizing the guidelines and adhering to the limitations 
presented in the previous section, it is believed that most users will 
find it relatively easy to employ the code. 

The code is available in the FORTRAN IV language using double 
precision or single prescision arithmetic. This double precision 
version requires a storage space of about 330K bytes on IBM 360/65 
system while the single precision storage space is about 200K bytes. 
Efforts have been made to make this code compatible with a large number 
of computing systems. In particular, adaption of the code for use on a 
CDC 6600 computer requires only minor changes. 

The input data for a run consists of one card I (card types will be 
explained on the following pages) followed by a complete set of data 
(cards II-X) for each case. The set of cards II-x is the input data 
required to generate the response of a shell for a given number of 
harmonics due to a particular loading. The cards comprising the data 
deck for both an initial run and a restart are schematically represented 
in Fig. 1. The cards specifying the Fourier harmonics, the initial 
conditions, and the boundary conditions are omitted from the input deck 
when using the restart mode. If more than one case is to be run, 
include a set of data for each of the cases. There is no limit on the 
number of cases which may be included in a run. A card must be placed 
at the end of the data for the final case. 



INITIAL RUN RESTART 



FIG. 1 CONSTITUTION OF DATA DECKS - INITIAL RUN AND RESTART MODES. 
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I. BON CONTBOL CARD 


This card is used to 
logical unit numbers 
CARD I IS USED PER RUN.) 

identify the number of cases to be run 
of the scratch tapes used in the run. 

and 

(ONLY 

the 

ONE 

| Card Type I 

Format (315) 



— "1 
1 

< 

1 

1 

1 

1 Columns 

1 

Variable 

Description 



| 1-5 

1 
| 

NCASES 

The number of different data sets 
for this run. 

utilized 

1 

1 

1 

1 

1 

I 6-10 

1 

1 

| 

nd 

Logical unit number of the scratch 
onto which all the data is read at 
start of the run. 

tape 

the 


1 

1 

1 

1 

1 

1 

| 11-15 

1 

1 

NS 

Logical unit number of a second scratch 
used by the program. 

tape 

1 

1 

1 

i 






1 

i 


II. CASE ID ENT IP IC AT ION CARDS 


These cards allow the user to print out comments which identify the 
problem being run. 
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A. control Card (OHE CARD II-A PER DATA SET) 


| Card Type II-A Format (215) 


Columns Variable 
1-5 HCARDS 


Description 


Number of comment cards (TYPE II-B) which 
follow. 


6-10 NT Logical unit number of the tape (prepared 

by SAMMSOR) from which the stiffness and 
mass matrices, element properties, and re- 
start information, if needed, will be read. 


B. 


Identification Card 
printed as output and 
comments should not 
SAMMSOR comments will 
CARDS II-B, OTHERWISE 


s - The information punched on these cards is 
should identify the problem being run. These 
duplicate those of the SAMHSOR case since the 
aLso appear as output. (IF NCARDS=0, OMIT 
INCLUDE NCARDS OF TYPE II-B.) 


J Card Type 

J *T 

II-B Format 

(20A4) 


j Columns 

Variable 

Description 

1 

! 

V- 

1 1-80 

COM ENT 

Any desired alphanumeric information may be 

• 

1 



printed on these cards. 

1 

1 

1 



J 
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III. CASE CONTROL CARDS 


A. Control Constants - Time parameters, restart information, and other 
miscellaneous control constants are input on this card. (INCLUDE ONE 
CARD III-A PER DATA SET.) 


] Card Type III-A Format (2F10. 0,415) I 

| Columns Variable Description | 

I 1-10 TOTIME The maximum time (seconds) for which the | 

I calculations are to be performed. I 


11-20 DELTE Time increment (seconds) used in solving 

the equations of motion. 


21-25 IRSTRT Control constant which indicates if the so- 

lution is being restarted. If the solution 
is being restarted set IRSTRT = 1. If not, 
set IRSTRT = 0. 


26-30 INCRST The number of the tiae increment at which 

the solution is to be restarted. INCRST 
must be an integer multiple of the value of 
NPRNIT used in the previous run. If IRSTRT = 
0, set INCRST = 0. 


31-35 NCLOSE For a closed shell (such as a spherical cap 

or a hemisphere) where node 1 is at the apex, 
set NCLOSE = 1. Radial and rotational re- 
straints will then be applied for the zeroth 
harmonic to aid the numerical stability of 
the solution. If the shell does not fit the 
above description, set NCLOSE = 0. 


36-40 ITELF If thermal loads are to be applied in the 

program, sat ITELF = 1. Otherwise, sat 
ITELF = 0. 


Print Control Card - The constants usei to control the progra 
output are punched on this card. (INCLUDE ONE CARD III-B PER DAT 


L. 

B 
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SET.) 


j 

Columns Variable Description | 

1-5 NPRNTQ If the displacements are to be printed, set j 

NPRNTQ = 1. If not, set NPRNTQ = 0. | 


6-10 IPRINT If NPRNTQ = 1, the iisplacenents will be | 

printed every IPRINT time increments beginning J 
with the first time step. If NPRNTQ = 0, {- 
set IPRINT = 0. I 


| Card Type III-B Format (1Dl5) 

K 


11-15 NCLCST If the stresses and stress resultants are to L 

be calculated, set NCLCST = 1. If not, j 

set NCLCST = 0. I 


16-20 NSTRSS 


21-25 NPRNT 


26-30 NPRNIT 


31-35 NPRNTL 


36-40 NPRNTF 


If NCLCST = 1, the stress and stress resultants 
will be calculated and printed every NSTRSS 
time increments beginning with the first step. 
If NCLCST = 0, set NSTRSS = 0. 


t 

If restart information is to be placed on 1 

tape, set NPRNT = 1. If not, sat NPRNT = 0. | 


r 

If NPRNT = 1, the restart information will be ] 
written on the output tape every NPRNIT time | 
increments. If NPRNT = 0, set NPRNIT = 0. | 
It is suggested that relatively large values ofl 
NPRNIT be used, say 200, 400, etc., if the total) 
number of time steps is relatively large. I 


If a printout of the applied loads is desired, I 
set NPRNTL = 1. otherwise, set NPRNTL = 0. I 

J 

1 

If a printout of the generalized forces is I 

desired, set NPRNTF = 1. Otherwise, set j 

NPRNTF = 0. I 


1 
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41-45 NPRHTH If the Fourier coefficients for the temperature 

and temperature gradient are to be printed, set 
NPRNTH = 1. Otherwise, set NPRNTH = 0. 


46-50 NPRNHS If the mass and stiffness matrices are to be 

printed, set NPRNMS = 1. If not, set 
NPRNHS = 0. 
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IV. CIRCUMFERENTIAL ANGLE CARDS 


The circumferential angles at which the displacements and stresses 
are to be calculated ace read from these cards. 


A. Control Card - (ONE CARD IV-A PER DATA SET.) 


| Card Type IV-A Format ( 1 5 ) | 

| I I 

1 Columns Variablk Description ] 

| 1-5 NTHETA The number if circumferential angles at which | 

| the displacements and possibly stresses are I 

| to be calculated. (1 < NTHETA < 20) 1 


B. Circumferential Angles - (INCLUDE 1-3 CARDS IV-B PER DATA SET 
DEPENDING UPON THE VALUE OF NTHETA.) 


| Card Type IV-B Format (8F10.0) 


Columns Variable 


Description 


1-10 THETA(I) Circumferential angles at which the displace- ) 

ments and possible stresses will be calculated. f 


11-20 THETA (2) (If it is desired to calculate the displace- 

w H ments only along the line = 0, then include 

" " one card IV-B and sat THETA (1) = 0.0) 

" THETA (NTHETA) 
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?. FOUHIER HARMONICS CARD 

This card provides the number of Fourier cosine harmonics to be 
imployed for this analysis and enumerates the specific harmonics to be 
used. (IF IRSTRT = 1, OHIT CARD V. OTHERWISE, INCLODE ONE CARD V PER 
DATA SET.) 


| Card Type V 

l 


Format (615) 


Columns Variable 
1-5 NH 


1 

I 

*1 


Descripti on 

The total number of Fourier cosine harmonics 
to be utilized in this analysis (1 < NH < 5). 


6-10 IHARH (1 ( Specific harmonics numbers to be imployed. NH 

11-15 IHARH (2) values must be given and the zero harmonic 

16-20 IHARH (3) must always be specified as one of the input 

21-25 IHARH (4) harmonic numbers. The user should check to be 

26-30 IHARH (5) certain that the information for each of these 

harmonics has been created and stored on tape 
by the SAMHSOR code. 


Example: Consider a case where it is desired to utilize harmonics 0, 2, 

3, and 4. The input data for card V would then utilize the 
following values: 


NH =4 


IHARM(I) = 0 

IHARH (2) = 2 
IHARH (3) = 3 
IHARH (4) = 4 


NOTE: IHARH(I) should always 

be set egual to zero. 


Columns 26-30 corresponding to IHARH (5) should be left blank for 
this example since only four harmonics are being run. 
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VI. HODAL RESTRAINT CARDS (Boundary Conditions) 

The displacement constraints applied to the shell are described 
utilizing thes cards. (IF IRSIRT = 1 , OMIT CARDS VI-A AND VI-B.) 

A. Control Card - (ONE CARD VI-A PER DATA SET, UNLESS ISSTRT = 1.) 


| Card Type VI-A Format (15) | 


Columns Variable Description 

1-5 NODRES Total number of displacement constraints to 

be applied to the shell (0 < NODRES < 204) 




B. Boundary Conditions - (THE NUMBER OF CARDS OF TYPE VI-B MUST EQUAL 


NODRES, UNLESS IRSTRT = 1. IF NODRES = 0, OMIT CARDS VI-B.) 

| Card Type VI-B Format (215) \ 

I i 

| Columns Variable Description i 

I I 

I 1-5 NP Number of the node where the restraint is to ) 

I be applied. | 

I I 

I I 

I 6-10 NDIRCT Key used to indicate the degree of freedom | 


which is restrained. 

NDIRCT = 1 applies axial restraint 

NDIRCT = 2 applies circumferential restraint 

NDIRCT = 3 applies radial restraint 

NDIRCT = 4 applies rotational restraint 
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VII. INITIAL CONDITIONS CARDS 


The initial velocities and displacements of the nodes 
on these cards. (IF IRSTRT = 1, OMIT CARDS VII-Z, VII-B, 


are specifies 
AND VII-C.) 


A. Control Card - Utilization of this control card greatly simplifies 
the specification of the initial conditions if either the initial 
velocities or the initial displacements, or both, are egual to zero. 
(ONE CARD VII- A PER DATA SET) 


| Card Type 

VII- A Format (215) 1 

1 

| Columns 

Variable 

1 

1 

Description ) 

1 

| 1-5 

IQN 

1 

If the initial velocities at all the nodes | 

are zero, set IQN = 0. If not, set IQN = 1. I 

| 6-10 

IQN 1 

1 

If the initial displacements ar all the nodes | 
are zero, set IQN1 = 0. If not, sat IQN1 = 1. | 

« ^ - - 



B. Ian ‘ 

1 Velocities 

- The initial nodal velocities must be specified 


for eac s node of the shell for each harmonic to be run. The ’ogic 
used to input the nodal velocities is essentially the sane as the 
procedure used t~ specify the element properties in the SAMilSOR 
code. The initial velocities for each of the nodes are , ecifies 
for the first of the i.nout harmonics, then for the second input 
harmonic, etc. Thir process is repeated until the nodal velocities 
for the first of the input harmonics, then for the second input 
harmonic, etc. This process in repeated until the nodal va I oci ti - s 
for each harmonic nave been specified. (IF IQN = 0, OMIT C*AR°>; 
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VII-B.) 


| Card Type VII-B Format (2l5, 4P10.0) 


Columns 

Variable 

Description 

1-5 

INI 

First node to which the velocities specifies 
on this card are applied. 

6-10 

IN2 

Last node to which the velocities specified 
on this card are applied. 

11-20 

• 

9 i 

Initial nodal velocity in the axial direction 
for a particular harmonic. 

21-30 

*2 

Initial nodal velocity in the circumferential 
direction for a particular harmonic. 

31-40 

• 

9 3 

Initial nodal velocity in the radial direction 
for a particular harmonic. 

4 1-50 

• 

*4 

Initial nodal rotational velocity in the meri- 
dional direction for a particular harmonic. 


C 


Initial Displacements - In identically the same manner as is 
utilized for the initial velocities, the initial displacements are 
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specified for each harmonic. (IP IQNl = 0, OMIT CARDS VII-C) 


r — - 
| Card Type 

VII-C Format (215, 4F10.0) 


Columns 

Variable 

Description 


1-5 

INI 

Pirst node to which the displacements specified 
on this card are applied. 


6-10 

IN2 

m r t r * -* » Ttt T ^ T - TtTTTf 1Ttttt 

Last node to which the displacements specified 
on this card are applied. 


11-20 

g 

1 

Initial nodal displacement in tne axial direc- 
tion for a particular harmonic. 


21-30 

q 

2 

Initial nodal displacement in tne circumferen- 
tial direction for a particular harmonic. 


31-40 

q 

Initial nodal displacement in the radial 


3 direction for a particular harmonic. 


9 

4 


41-50 


Initial nodal rotation in the meridional 
direction for a particular harmonic. 
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fill. COEFFICIENTS OF THERMAL EXPANSION 

If the thermal effects are to be included in the analysis, the 
coefficients of thermal expansion must be specified using these cards. 
These coefficients are assumed to be constant for a given element but 
may vary from element to element. These coefficients are read in the 
same manner as the element properties in the SAMMSOR code. (THE NUMBER 
OF CARDS VIII MUST BE < NELEMS FOR ANY GIVEN DATA SET. IF HELP = 0, 
OMIT CARDS VIII.) 


!~ Card Type VIII Format (215, 2F10.0) | 

j Columns Variable Description 

I 1-5 IELM1 Number of the first element to which the 

| properties on this card apply. 


6-10 IELM2 


Number of the last element to which the 
properties on this card apply. 


11-20 ALSI1 


Coefficient of thermal expansion in the 
meridional direction (in/in/deg) . 


21-30 ALT II 


Coefficient of thermal expansion in the 
circumferential direction (in/in/deg). 
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IX. APPLIED LOADS, TEMPERATURES, AND TEMPERATURE GRADIENTS 


Since the concentrated nodal leads, distributed pressures, tempera- 
tures, and temperature gradients may vary in time; it may be necessary 
to specify these loads at a number of points in time. If these loads 
and temperatures are input at times Tl^ and T1 • ,■] , the program will 
calculate generalized forces due to these loads at each of the input 
times. A linear variation of the generalized forces is then assumed 
betveed the times the loads are input. As soon as the value of the time 
reaches T1 j + -j, a new set of loads is read in at T1 -j+2 and the process of 
calculating the generalized forces is repeated. The time increment, 
DELTE (CARD III-A) , used in the solution of the eguations of motion must 
be less than the difference between any too of the times at which the 
loads are specified. If the loads and/or temperatures propagate in and 
direction (moving loads), it is advisable to specify the loads at more 
times than is necessary if they vary in intensity only. 

Ring loads can be applied at the nodes and must be input for each of 
the harmonics. The ring loads utilize the same sign convention employed 
for the shell nodal displacements. 

The pressure loadings, temperatures and temperature gradients are 
assumed constant over the meridional length of the element but varia- 
tions in the circumferential direction are allowed. These loadings may 
be input in one of two ways. Either the Fourier coefficients can be 
specified for each harmonic or the values of the loads may be specified 
at a number of circumferential angles around the shell elements. 
Utilizing this second procedure a step function variation is assumed in 
tne circumferential direction. That is, the load is assumed constant 
from Oj to Oj + yith the value of the loads being equal to those specified 
at 0.j . Sign conventions for the pressure loading are given in Figure 2. 

A control card (Card Type IX-A) containing several key variables is 
used to guide the reading of the loading conditions. Proper selection 
of the values of these key variables results in a highly efficient 
procedure for specifying a wide variety of loading conditions. The key 
words and their meanings are explained in Figure 3. 

Before attempting to input loads to the code the user is advised to 
study the guidelines presented in Section II, the example problems of 
Section II, and Appendix 6 which presents a thorough discussion of the 
various procedures necessary for specifying the loads. 


A. Load Control Card 


This control card is utilized to direct the input of the loads for a 
given time. This card indicates the presence or absence of concentrated 
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FIG 2 POSITIVE DIRECTION OF FORCES, MOMENTS , 
AND LOADS ON SHELL SEGMENT 



TIME * Tl, 


J-l .37 



Specify Loods 
at Time Tl it , 


Fig. 3 LOAD SPECIFICATION AT TIME Tl. 








dyn1!sor 38 ii 


October 1972- 


forces and distributed pressure loadings and indicates the procedure to 
be utilized for creating the generalized thermal forces. (ONE CARD IX-A 
IS NECESSARY FOR EACH IIME AT WHICH THE LOADS ARE BEING INPUT.) 


| Card Type IX-A Format (F10.Q, 415, A8) 


Columns Variable 
1-10 T1 


11-15 


NCF 


16-20 


IDELF 


21-25 


IDCOE 


26-30 


ITCOE 


31-38 


CONSTF 


Description 


The time for which the loads are being 
input (sec). 


If concentrated ring loads are applied to 
the structure at time Tl, set NCF = 1. If 
not, set NCF = 0. 


If distributed loads are to be applied to 
the shell at time Tl, set IDELF = 1. if 
not, set IDELF « 0. 


If the Fourier cosine coefficients for the 
distributed loadings are to be read in at time 
Tl, set IDCOE = 1. If not, set IDCOE = 0. 


If the Fourier cosine coefficients for the 
temperatures and temperature gradients are to 
be read in at time Tl, set ITCOE = 1. If 
not, set ITCOE = 0. 


If the applied loads, temperatures and temp- 
erature gradients are constant from time, Tl, 
to the final time, TOTIHE (CARD III-A) , punch 
the word CONSTANT in columns 31-38. If these 
parameters are not constant, leave columns 
31-38 blank. 
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B. Concentrated Ring Loads 

The concentrated ring loads nust be specified for each harmonic. (IF 

HCF = 0, OMIT CARDS IX-B.) 

1. Control Card - This card indicates the presence or absence of 
concentrated ring loads for a particular harmonic. (3NE CARD IX-B-1 
FOR EACH HARMONIC.) 

f Card Type IX-B-1 Format (15) I 

I I 

1 Columns Variable Description ) 

I I 

) 1-5 NCP 1 If there are concentrated ring loads for this | 

| particular harmonic, set NCF 1 = 1. If not, J 

1 set NCF1 = 0. I 
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2. Concentrated Ring Loads - For harmonics having ring loads associated 
with them, the loads are specified using these cards. (IF NCF1 = 0, 

OMIT CARDS IX-B-2 FOR THE HARMONIC BEING CONSIDERED.) ONE OR MORE 
CARDS IX-B-2 MAY BE USED, BUT NEVER UTILIZE MORE THAN 51 PER 
HARMONIC. 


| Card Type IX-B-2 Format (2l5, 4F10.0) 


Columns 

1-5 

Variable 

INI 

Description 

First node to which this loading applies. 

6-10 

IN2 

Last node to which this loading applies. 

11-20 

FI 

Axial ring load applied at a node (lb).* 

21-30 

F2 

Circumferential ring load applied at a 
node (lb).* 

31-40 

F 3 

Radial ring load applied at a node (lb).* 

41-50 

F4 

Concentrated moment applied at a node (in 


Examples: The use of cards IX-B should become clear after considering 

the following examples: 

1. Consider the case where a uniform tensile ring loading of 100 
psi is being applied in the axial direction to the first node of 
a cylinder. The solution for this problem has been presented in 
Figure 20 of Reference 31 The thickness of the cylinder is 0.1 


* The total value of the ring load for each harmonic is input, not the 
load per unit length of circumference. For complicated ring loads the 
value of the load input for each harmonic is obtained by intergrating 
the product of the load and the corresponding displacement function 
around the circumference. 



J-1.41 DYNASOR II 


October 1972 


inches with the radius being given as 6 inches. Consider that 
harmonics 0 and 2 are being run. The total ring load for the 
zero harmonic will be (100) x 2 tt ( 6 ) x (0. 1) = 376.9 lb. 


Five cards of type IX are required to input these loads assuming 
they are constant from time T1 = 0.0 to TOTIME and assuming 50 elements 
are used to idealize the structure. 


CARD 

VARIABLE 

VALDES 



H 

X 

1 

>> 

T 1 = 0.0 

NCF = 1 

IDELF 

= IDCOE 

IX-B 

NCF 1 = 1 

(HARHONIC 0) 



IX-C 

I N1 = 1 IN 1= 1 

FI = -376.9 

F2 = F3 = 

F4 = 0 

IX-C 

INI =2 INI = 51 

FI = F2 = F3 

= P4 = 0 


IX-B 

NCF2 = 0 

(HABMONIC 2) 




2. The second example considers a radial ring load of F cosO 
applied to a cylinder of radius r. 


Performing the integration, one obtains the radial ring load for 
harmonic 1 as 

2ir 

F3 = f (F coso)rcosedG 

0 

=irrF 

The Fourier coefficients for the other harmonics ace zero. 

C. Distributed Loads - (IF IDELF = 0, OMIT CARDS IX-C) 


The distributed loadings may be input in one of two ways: the Fourier 
coefficients may be read in for each harmonic or the loadings may be 
specified at a desired number of circumferential angLes ( < 37). If the 
second option is used, the Fourier coefficients will then be generated 
internally. The user should note that it is possible to input 
distributed loads in only one of two ways. 
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1. Distributed Loads - (Input at various circuit erantial angles) 
Since the choice of tha displacement functions utilized in this 
analysis necessitate the presence of loads symmetric about the 
meridian 0=0, it is necessary to specify the distributed 
loadings for angles from 0° --> 180°. The code then assumes 
that the distribution from 180° — > 360° is tha mirror image of 
the input distribution. (IF IDCOE = 1, OMIT CARDS IX-C-1) 

a. Control Card - Utilize this card to indicate the number of 
angles for which the loads will be specified. 


| Card Type IX-C-1-a Format (315) 

j Columns Variable Description 

| 1-5 I EL HI First element to be distributed 

| loading applies. 


6-10 IELH2 Last element to which this distributed 

loading applies. 


11-15 NDP Number of circumferential angles at which the 1 

distributed loads are to be specified 1* 
(1<NDP<37). If the leadings are constant in 1 
the circumferential direction sat NDP = 1. | 


b. Distributed Loads at Specified Angles* This card specifies the 
angle at which the loads are being input and provides the 
values of tha loads at that angle. (INCLUDE NDP CARDS OF 


* The first loading must always be given for 0 = 0®. The next loading 
is given at the angle where the load changes in value. If the load is 
constant with respect to 0 , only one card will be necessary to input the 
load. Do not input values for the loads at Q = 180° since the load at 
that angle will be egual in all cases to the load input at the previous 
value of THETAB. 
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TIPE IX-C-1-b FOR EACH CARD IX-C-1-a.) 


| Card Type IX-c-1-b Format (4F10.0) 

I 

1 Columns Variable Description 


1-10 THETB 


Circumferential angle (degrees) for which this 
data is given. 


11-20 P 


Distributed load in the meridional 
direction (psi) . 


21-30 R 


Distributed load in the normal direction (psi). 


31-40 S 


Distributed load in the circumferential 
direction (psi) . 




Example: Consider the normal pressure distribution on an 
element depicted in Figure 4. To input the pressure on this 
element requires specification of the pressures for four values 

of 0. 


THETB 

R(I) 

o 

• 

o 

-Q1 

30.0 

-Q2 

90.0 

-Q3 

2.0 

0.0 


2. Distributed Loads - (Fourier Coefficients) The Fourier coeffi- 
cients for the distributed loads oey be specified using these 
cards. The coefficients must be specified (even though they may 
be zero) for each harmonic being employed ia the analysis. The 
coefficients are specified for each harmonic of the first group 
of elements, then for each harmonic of the second group, etc. 
until the values have been input for all the elements. (IF 
IDCOE = 0, OMIT CARDS IX-C-2) 
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a. Control Card 


| Card Type 

l_ 

IX-C-2-a 

Format (215) 

1 


Columns 

Variable 

Description 

1 

1 


1-5 

IELH1 

First element to which these loads apply. 

1 

1 

1 


6-10 

IELM2 

Last element to which these loads apply. 

1 

1 

i 

( 




J 


b. 

Fourier C 
CARD IX-C 

oef f icients - (NH CARDS OF TYPE IX-C-2-b FOR 
-2-a. ) 

EACH 

r 

\ Card Type 

IX-C-2-b 

Format (3F10.3) 

i 

V 

1 

1 

Columns 

Variable 

Description 

i 

i 

a 

1 

1 

1 

1 

1 

1-10 

P 

Fourier coefficient of the distributed load 
in the meridional direction for a particular 
harmonic (psi) . 

i 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 1-20 

R 

Fourier coefficient of the distributed load 
in the normal direction for a particular 
harmonic (psi) . 

1 

1 

1 

1 

1 

i 

1 

1 

1 

J 

1 

1 

21-30 

S 

Fourier coefficient of the distributed load 
in the circumferential direction for a parti- 
cular harmonic (psi). 

1 

1 

1 

1 

1 

i 

I 

1 




1 


D. Temperature Distribution and Gradients 


Essentially the same logic is employed for inputting the temperatures 
and gradients that was used for the specification of the distributed 
loads. The explanation of this procedure should therefore not need be 
repeated. 
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The tea pera tures are specified for the midsurface of the shell. The 
temperature gradients (through the thickness) are considered positive if 
the temperature for the outer surface is greeted than the temperature on 
the inner surface. (IP ITELF = 0, OMIT CARDS IX-D.) 


1. Temperature Distribution and Gradients - (Input at various 
circumferential angles) 


Again, the requirement of symmetry about the meridian 0 = 0, makes it 
necessary to specify the temperature distribution and thermal gradients 
only from 0° — > 180°. The temperature distribution and gradients are 
input on the same cards for the various angles. (IP ITCOE - 1, OMIT 
CARDS IX-D- 1. ) 


a. Control Card - Utilize this card to indicate the number of 
angles for which the temperature and gradients will be 
specified. 


Card Type 

IX-D- 1-a 

Format (315) 



Columns 

Var iable 

Description 



1-5 

IEU11 

First element to which this data 

applies. 

6-10 

IELM 2 

Last element to which this 

data 

applies. 

11-15 

NDP 

Number of circumferential 

angles 

at which the 


temperature distribution and gradient are to 
BE SPECIFIED (1 < NDP < 37). If the temperature 
is constant in the circumferential direction, 
set NDP = 1. 


b. Temperature and Temperature Gradient at Specified Angles - 


This card specifies the angle at which the temperature and temperature 
gradient (through the thickness) is being input and provides the value 
of the temperature at that angle. (INCLUDE NDP CARDS OF TYPE IX-D- 1b 
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FOR EACH CARD IX-D-1-a.) 


| Card Type IX-D-1-b Format (3P10.0) 

| Columns Variable Description 

| 1-10 THETB Circumferential angle for which this tempera 

| ture and gradient are given. 


11-20 P Distributed temperature at 0 = THETB (°F) . 


21-30 R Temperature gradient (through the thickness) 

at Q = THETB (°F/in) . 


*- 1 


2. Temperature Distribution and Sradient - (Fourier Coefficients) 


If the user so desires, the Fourier coefficients for the temperature 
distribution and gradient may be specified for each of the harmonics 
being used. Again, the coefficients are specified for all harmonics for 
the first group of elements, then for the second group, etc., until all 
the element coefficients have been input. (IF IT30E = 0, OMIT CARDS 
IX-D-2) 

a. Control Card 


| Card Type 

IX-D-2-a 

Format (215) 

1 

i — ■ 

) Columns 

| 1-5 

Variable 
I ELM 1 

Description 

First element to which these 

i 

i 

i 

properties apply. | 

| 6-10 

I EL M2 

Last element to which these 

1 

properties apply. ) 





b. 

Fourier 

Coefficients - (NH CARDS DP 

TYPE IX-D-2-b FOR EACH 
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CARD IX-D-2-a. ) 

Card Type IX-D-2-b Format (2F10.0) 

I 

| Columns Variable Description 

| 1-10 TH1 Fourier coefficient of the temperature distri- 

1 but ion (°F ) for a particular harmonic. 

I 

I 

| 11-20 DTH 1 Fourier coefficient of the temperature gradient 

| (°F/in) for a particular harmonic. 


X. FINAL DATA CARD FOR A CASE 

Place this card after the last card IX of each data set. This 
signifies the end of the input data for a case. (ONE CARD X PER DATA 
SET.) 

] 

I 

Punch | 

f 

END OF CASE I 


XI. FINAL DATA CARD FOR A RUN 

This card must be placed after the card X of the last case to be run.^ 


| Card Type X 

I 

| Columns 

1 

I 1-11 
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It denotes the end of the input data for a ran. (ORE CARD XI PER RUN) 


| Card Type XI 



1 

i 

| Columns 

| 1-10 

Punch 

END OF RUN 


1 
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SECTION IV 


EXAMPLE PROBLEMS 

The example problems which follow were chosen to demonstrate the 
versatility of the code and to further acquaint the users with the 
procedures for inputting the data to the code. The data presented 
herein is typical for the problems solved by the code and demonstrates 
many of the input procedures. 

Since the most complex portion of the input data is the specification 
of the loading conditions, a variety of loadings are demonstrated. 
Response curves are presented so the user may check his output with thhe 
previously obtained curves. The first two example problems utilize the 
shells described in example problems 1 and 2 of the SAMMSOR user's guide 
(Ref. 1) while the third example problem demonstrates the two procedures 
for specifying distributed pressure loadings. 


Example Problem 1 

The first example problem was chosen to demonstrate the procedure for 
inputting a concentrated ring load and to demonstrate the program's 
capability to solve highly nonlinear problems. For the forty pound load 
applied in this problem, the static solution shows that the nonlinear 
displacement is more than four times as large as the linear solution. 

The shell to which the load is applied is the shallow spherical cap 
(X=6) utilized in the first example problem in the SAMMSOR user's guide. 
The edges of the shell are assumed to be clamped. Since the loading is 
symmetric, the displacements and stresses will be calculated only along 
the line q = 0. Only the response for the zeroth harmonic will be 
determined. A set of input data for this case is presented in Figure 5 
with the displacement response of the apex of the shell being presented 
in Figure 6. This response curve should allow the user to check his 
version of the code. 


Example Problem 2 

The shell described in the second example problem in the SAMMSOR 
user's guide is now subjected to a 50 psi internal pressure. The 
load-in is applied at time T1 = 0.0 and remains constant for the 
duration of the calculation. 

Two sets of input data are provided for this example problem. The 
first set (Figure 7) allows the program to calculate the response for 
the first 300 time steps. The second set of input data (Figure 9) will 



INPUT DATA - EXAMPLE PROBLEM 1 


NCASE= 1 

PRINTOUT Of- INPUT DATA 

31 CARD 10 20 30 AO 50 60 70 80 

<f TYPE 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

II - A 6 4 

_ g <t *** ***** #**♦***+*************************************************#******** ***** 

_ B EXAMPLE PROBLEM NO. 1 DYNASOR II USFR'S MANUAL 

. b THE SHELL DESCRIBED IN EXAMPLE PROBLEM 1 OF THF SAMMSOR USER'S GUIDE 

- b IS SUBJECTED TO A 40 LB. APEX LOADING WITH THE SOLUTION BEING DETERMINED 

- B FOR 400 TIME STEPS 

_ g *********$******$******+* ************************* ****************************** 

III _ A 0.0001 .00000025 0010 

- B 14 18 1 100 110 1 

IV - A 1 

- B 0.0 

V 10 

VI - A * 

- B 31 l 

- B 31 2 

- B 31 3 

- B 31 4 

VII - A 0 0 

IX - A 0.0 l 0 0 OCONSTANT 

- B - 1 1 

- 2 1 1 * 0.0 0.0 0.0 0.0 

_ 2 2 31 0.0 0.0 0.0 0.0 

x END of CASE 
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W/H AT APEX 



FIG. 6 APEX DISPLACEMENT RESPONSE UNDER 
CONCENTRATED AXIAL LOAD 



INPUT DATA - EXAMPLE PROBLEM 2 


NCA SE= 2 

PRINTOUT OF INPUT DATA 

CARD 10 20 3 0 40 50 60 70 80 

TYPE 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

II - A 6 8 

_ g ************** ************************************** ****** **** ****** ************ 

- B EXAMPLE PROBLEM no. 2 OYNASOR II USER'S MANUAL 

- B CAP-TORUS-CYLINDER CONFIGURATION 

- B ThE SHELL DEPICTED IN THE SECOND EXAMPLE PROBLEM OF THE SAmMSOR USER'S 

- B MANUAL IS SUBJECTED TO A 50 PSI INTERNAL PRESSURE 

_ g ******************************************************************************** 

HI - A 0.0009 0.000003 0 0 1 C 

- B l 10 1 20 1 100 1101 

IV - A 1 

- B 0.0 

V 10 

VI - A 4. 

- B 51 1 

- B 51 2 

- B 51 3 

- B 51 4 

VII - A 0 0 

IX - A 0.0 0 10 OCONSTANT 

- C -1-a 1 50 1 

-b O.c 0.0 50.0 0.0 

X END OF CASE 
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Fig. 8 INPUT DATA - EXAMPLE PROBLEM 2 - RESTART MODE 


NCASE= 3 

PRINTOUT OF INPUT DATA 

CARD 10 20 3 0 AO SO 60 70 SO 

TYPE 1 23A567890123A567890123A567890123A567890123A567890123A567890123A567890123A56789C 


II - 


b 

**** 


8 


a*********************************** $$**♦$******$*!(>*******>$<:******** ****$«$* 

example problem no. 2 dynasor ii useris manual 

ThE INPUT DATA NECESSARY TO RESTART THE CODE AT TIME INCREMENT 3C0 
IS PROVIDED TO GUIDE THE USER IN HIS RESTART OPERATIONS. THE PROBLEM 
IS TO BE RUN FOR AN ADDITIONAL 300 TIME INCREMENTS. 


- B 
III - A 

“ “ •T’ T' -*r 

0.0018 

- B 

1 1C 

1 

IV - A 

- B 

0.0 

IX - A 

0.0009 

- C - 

1 -a 1 5 ° 


-b °* c 


0.000003 
1 20 


300 

100 


0 

1 


0 

1 


1 

c.o 


OCONSTANT 

0.0 


END OF CASE 


X 


50. 0 
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TIME (MICROSECONDS) 


FIG. 9 DISPLACEMENT RESPONSE UNDER INTERNAL PRESSURE 
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restart the code at the end of the 300th time step and will then allow 
the program to calculate the response for an additional 300 increments. 

Since this problem is only moderately nonlinear, it is interesting to 
note that a much larger time step can be used for this problem than was 
employed in the previous example problem. The displacement response 
obtained for this problem is presented in Figure 9. 


Example Problem 3 

This example problem was selected to demonstrate the procedures for 
inputting the distributed loadings on a shell. A cylindrical shell 
(figure 10) is subjected to a half cosine loading which is symmetric 
about the meridian = 0. This load is applied along the entire length of 
the shell. The pressure loading may be specified in one of two ways: 


1) The Fourier coefficients may be input for each harmonic. 


2) The pressure may be specified at various circumferential 
angles with the Fourier coefficients then being internally 
generated. 


The first set of input data (Figure 11) utilizes the first of the 
above procedures and inputs the Fourier coefficients. The input data 
presented in Figure 12 describes the loading by specifying the value of 
the pressure at the various angles. The same procedure is employed to 
describe the temperature and temperature gradient distributions. 

Considering the symmetry of the loading and the boundary conditions 
applied to this shell, it can easily be recognized that the displace- 
ments and stresses will be symmetric about the center of this cylindric- 
al tube. Therefore, only one-half of the shell needs to be analyzed. 
The plane of symmetry is assured by applying an axial and a rotational 
restraint at node one (1). 
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FIG 10 CYLINDRICAL SHELL SUBJECTED TO HALF 
COSINE PRESSURE LOADING 



Fig. 11 INPUT OATA - (SET #1) - EXAMPLE PROBLEM 3 


NCASE= 5 

PRINTOUT OF INPUT DATA 

CARD 10 20 30 40 50 60 70 80 

TYPE 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

II - A 6 4 

- B ****************************************************************** ************** 

- B EXAMPLE PROBLEM NO. 3 DYNASOR II USER'S MANUAL 

- B CYLINDRICAL SHELL IDEALIZED USING 30 ELEMENTS IS SUBJECTED TO A HALF COSINE 

- B LOADING TO DEMONSTRATE THE OPTIONS FOR INPUTTING DISTRIBUTED LOADS. 

- B ** IN THIS CASE THE PRESSURE IS SPECIFIED BY INPUTTING THE FOURIER COEFFICIENTS 

- B ***♦*************************•*****************<<***♦***************************** 

III - A 0.0005 0.00001 0000 

- B 1 5 1 10 1 50 l 1 0 1 

IV - A 2 

- B 0.0 30.0 

V 5 0 1 2 3 4 

VI - A 6 

- B 11 

- B 14 

- B 21 1 

- B 21 2 

- B 21 3 

- B 21 4 

VII - A 0 0 


2- al 

0.0 

20 

0 1 

1 OCONSTANT 

- b 

0.0 

-3. 1831 

0. 0 

- b 

0.0 

-5.0000 

0.0 

- b 

0.0 

-2.1221 

0. 0 

- b 

O.C 

0.0000 

0.0 

- b 

ENO OF 

0.0 

CASE 

0.4244 

0.0 


X 
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PRINTOUT OF INPUT DATA 

10 20 30 40 50 60 70 80 

123456789012 34567 8901 2 345678 9 01 2 345678901 234567 8901 2 3456 78901 2345678901234567890 

6 4 

******************************************************************************** 

EXAMPLE PROBLEM NO. 3 DYNASOR II USER'S MANUAL 

CYLINDRICAL SHELL IDEALIZED USING 30 ELEMENTS IS SUBJECTED TO A HALF COSINE 
LOADING TO DEMONSTRATE THE OPTIONS FOR INPUTTING DISTRIBUTED LOADS. 

** IN THIS CASE THE PRESSURE IS SPECIFIED AT VARIOUS CIRCUMFERENTIAL ANGLES ** 

************************************ ******************************************** 

0.0005 0.00001 0000 


0.0 

0 

1 


0 OCONSTANT 

20 

37 





0.0 


0.0 

- 

9.9976 

0.0 

2.5 


0.0 

- 

9.9786 

0.0 

5.0 


0.0 

• 

9.9406 

0.0 

7.5 


0.0 

- 

9.8836 

0.0 

10.0 


0.0 

- 

9.8079 

0.0 

12.5 


0.0 

- 

9.7134 

0.0 

15.0 


0.0 

- 

9.6005 

0.0 

17.5 


0.0 

- 

9.4693 

0.0 

20.0 


0.0 

- 

9.3201 

0.0 

22.5 


0.0 

- 

9.1531 

0.0 

25.0 


0.0 

- 

8.9687 

0.0 

27.5 


0.0 

- 

8.7673 

0.0 

30.0 


0.0 

- 

8.5491 

0.0 

32.5 


0.0 

- 

8.3147 

0.0 

35.0 


0.0 

- 

8.0644 

0.0 

37.5 


0.0 

- 

7.7988 

0.0 

40.0 


0.0 

- 

7.5184 

0.0 

42.5 


0.0 

- 

7.2236 

0.0 

45.0 


0.0 

- 

6.9151 

0.0 

47.5 


0.0 

- 

6. 5935 

0.0 

50.0 


0.0 

- 

6.2592 

0.0 

52.5 


0.0 

- 

5.9131 

0.0 

55.0 


0.0 

- 

5.5557 

0.0 

57.5 


0.0 

- 

5.1877 

0.0 

60.0 


0.0 

- 

4. 8099 

0.0 

62.5 


0.0 

- 

4.4229 

0.0 

65.0 


0.0 

- 

4.0275 

0.0 

67.5 


0.0 

- 

3.6244 

0. 0 

70.0 


0.0 

- 

3.2144 

0.0 

72.5 


0.0 

- 

2.7983 

0.0 

75.0 


0.0 

- 

2.3769 

0.0 

77.5 


0.0 

- 

1.9509 

0.0 

80.0 


0.0 

- 

1.5212 

0.0 

82.5 


0.0 

- 

1.0887 

0.0 

85.0 


0.0 

- 

0.6540 

0.0 

87.5 


0.0 

- 

0.2181 

0. 0 

90.0 


0.0 


0.0000 

0.0 


ENO OF CASE 


Fig. 12 INPUT DATA - (SET #2) - EXAMPLE PROBLEM 3 
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Appendix 5 - Use of the Restart Option 

In order for efficient use to be made of the DYNASOR II code, the 
user should become familiar with the option provided for restarting the 
program. Through effective use of this option the dynamic response 
studies can be completed using a minimum amount of computer time. 

Use of the restart option may prove invaluable in a number of 
situations. Abnormal termination of the program may occur if a 
numerical instability is noted in the response. If this occurs, the 
restart option can be used with a different value of the time increment. 
Another important use of the restart option arises when the user is 
satisfied with the results previously obtained but desires to extend the 
response data to a further point in tine. In such a case the program is 
restarted at the last time step for which the restart information was 
placed on tape. A most affective use of this option can be made when 
conducting dynamic stability analyses where it is desirable to evaluate 
the response to see if buckling has occurred. If it has not, the 
decision can then be made to extend the run to further points in time. 

Utilizing large time steps can result in a damping effect upon the 
solution so it is advisable to run the problem for a couple of 
oscillations, check to sea if the solution is significantly damped, and 
then run the problem for the desired number of oscillations. If an 
evaluation of the initial results indicates that a smaller or larger 
time step should be used, the restart facility might be used to keep 
from having to repeat the initial calculations. 

The displacements, velocities, and forces should be written on tape 
for almost all of the cases to insure that the restart information will 
be available if an evaluation of the calculated response indicates that 
the program should be restarted. The time required to write the restart 
information on tape is negligible when compared with the amount of time 
required to obtain the total response. 

If it is desirable to decrease the time increment when restarting the 
program, the user should exercise care in selection the increment 
(INRST) at which the program will be restarted. The decision to 
decrease the size of the time step will usually be based upon the 
observation that the solution has become unstable or that significant 
damping is present in the response. To restart the program the user 
must be sure that the increment (INCRST) has been selected small enough 
to insure that the inaccuracies created by the larger time step can be 
neglected. 

On the other hand, if the results from a previous run indicate that 
it is possible to increase the size of the time stip for the remaining 
calculations, then care must also be taken La the selection of IH3RST. 
Por the numerical extrapolation procedure to produce accurrate sets of 
displacements, it is recommended that the solution be restarted on a 
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relatively straight portion of the displacement response curve. Consid- 
ering the curve presented in Figure 6, it would be recommended that the 
program be restarted at 500 microseconds rather than at 600 microseconds 
because of the extrapolation procedure being utilized {i.e. the curve 
is smoother at 500 microseconds) . 

When using the restart option, it is possible to specify different 
values for a number of the control constants and input parameters. The 
data on cards I-IV may be changed, but the same Fourier harmonics and 
boundary conditions must be used. It is alo required that the 
coefficients of thermal expansion remain the same when restarting the 
program. These requirements allow the user to omit card types V, VI, 
and VII when preparing data for restart operations. rhe considerations 
effecting the input of the loads for restart operations are presented in 
Appendix 6. 
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Appendix 6 - Load and Temperature Input Discussion 

Since the DINASOR II program accepts time varying loading and 
temperature conditions, the logic required to input these conditions is 
of necessity more complex than the logic required to input the other 
parameters. A discussion of the procedures for inputting these loading 
conditions is contained in this section. In this appendix the term 
loads refers to all distributed and concentrated forces while the term 
temperatures refers to both the temperature and temperature gradient 
distributions. 

If there are no loads or no temperatures, it should be noted that a 
proper selection of the input constants allows omission of the input 
cards pertaining to the missing terms. In other words, the user selects 
the proper values for input keys and the proper read statements are 
automatically skipped. 

To illustrate the procedure for inputting time varying loads and 
tempertures the information presented in Pugure A 6 — 1 is utilized. The 
load-time and tempera ture- time curves are approximated as a series of 
linear segments by specifying values of both the loads and temperatures 
at discrete points in time and then assuming linear variations between 
the times. In order to specify the loads and temperatures in Figure 
A6-1, it is necessary to specify both the loads and the corresponding 
temperatures at times TT| , T^, and TI 3 . Both the applied loads and 
temperatures are constant from time TI 3 to the selected TOriME so the 
value of CONStF should be set equal to CONSTANT at time TI 3 . Obviously, 
if the loads or temperatures vary rapidly with time, it may be necessary 
to specify these conditions at a large number of times in order for the 
linear variation to be an accurate representation of the load-time and 
temperature-time curves. 

The logic for the load and tempaerature input is now discussed for 
each of the two program start conditions, namely: 


IRSTRT = 0 Calculation begins at time increment = 0 
IRSTRT = 1 Calculation begins at time increment = INCRST 


1. The loads and the temperatures must both be input at each 
time T 1 at which the loads or temperatures vary. In other 
words, the loads cannot be input at one time and the 
temperatures at another. 


The difference between successive tines at which the loads 
and temperatures are input (Tl^] - T 1 ^ ) must always be 


2 . 



TEMPERATURE LOAD 


0 - 1 -64 
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greater than the time increment (DELTE) specified for 
solving the eguations of motion. 


INHAHT = 0 


The cases vhich may arise when considering the loads and temperatures 
and the input logic required to describe these situations are as follows 
when the program is making an initial run on a problem: 


CASE INPUT LOGIC 


1. Loads and temperatures and con- Input only one set of loads and 

stant (in time) on each element. temperatures. These must be sped- 
Note, however, that variations fied at time T1 = 0.3 and the 

from element to element are value of CONSTF should be read as 

allowed. CONSTANT. 


2. Loads or temperatures (or both) Input, in order, the loads and 

vary with time. temperatures at times T 1q (must be 

equal to 0.0), T1 TI 3 , ... until 
, the value of T1 reaches or exceed 

the value of TOTIME (total time 
for the case.) The columns for 
CONSTP should be left blank. 


IRSTRT = 1 

The program may be restarted utilizing a new value for TOTIME which 
may be less than, equal to, or greater than the value which was utilized 
in the previous run which created and stored the restart information for 
use in this run. The previous value of TOTIME will be referred to as 
TOTIMEP. The input logic varies according to the relative values of 
TOTIME and TOTIMEP so each possible combination will be discussed 
separately. 

Procedures which may not be utilized in the restart mode are: 


j-1.66 

DYNASOR II 


October 1972 


If the program was originally run as case A with IRSTRT = 0 # 
it is not possible to input loads and temperatures at any 
time until the value of TOTIMEP has been exceeded. 


Consider that the program is being restarted at a time which 
is within the interval T1 . -- Tlj+i • The loads and 
temperatures were input in the previous run for times T1 • 
and T 1 . i . The first value of ri for which the loads and 
temperatures may be specified in the restart mode must be 


greater than 
previous run. 


time 


T1 i+1 


which 


utilized in the 


Consideration will first be given to the cases where the new value of 
the maximum time is less than or equal to the one previously used. 


TOTIME < TOTIHEP 


INPUT LOGIC 


1. Both the loads and the tempera- No loads or temperatures are input 
tures are constant (in time) and 
are equal to the values specified 
for IRSTRT = 0, Case 1. 


2. Both the loads and temperatures This problem is not allowed by the 
are constant (in time) but are program. If the user desires to 
different from the values spec- run this case, it is suggested 

fied for IRSTRT = 0, Case 1. that the problem be rerun begin- 

ning at time = 0.0. 


3. Loads or temperatures vary with Input loads and temperatures at 
time. (This cannot be a restart times ri-j, r I 2 , ... until the 
of Case 1, IRSTRT = 0.) value ri n reaches or exceeds the 

value of roriME. The value of 
T1 must be greater than the 
value of T1 1+ -j of the previous run 
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The possible cases which may arise if the value of TOTIHE is greater 


than TOTIMEP are now presented, 
only slightly from those previously 


TOT I ME > 


CASE 


1. Both the loads aid temperatures 
are constant (in time) and are 
equal to the values specified 
for IBSTRT = 0 , Case 1. 


It should be noted that cases differ 
discussed. 


TOTIMEP 


INPOT LOGIC 


The loads and temperatures must 
be input for T1 = TOTIMEP and the 
value of CONSTF is set as CONSTANT 
The specified loads and tempera- 
tures must be identical with those 
read for the previous run 
(IBSTRT = 0) . 


2m Both the loads and temperatures The new loads will not be applied 

are constant (in time) but are until TOTIMEP is reached. The 

different from the values speci- logic for Case 1, above, is then 
tied for IRSTRT = 0, Case 1. applied. 


The loads and temperatures must 
be input at times T1-], T Ig # ... 
until the value T1 reaches or 
exceeds the value of TDTIME. 


3. Loads at temperatures (or both) 
vary with time. 


PRCES 

Functional 
1 of 1 
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( MATKUT 


1 



MULTIPLY INPUT 
VECTOR BY MATREX 

2 



^ retur-i ) 
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ABSTRACT 


The DYNASOR II program is used for the DYnamic Nonlinear Analysis of 
Shells Of Revolution. The equations of motion of the shell are solved 
using Houbolt's numerical procedure. The displacements and stress resultants 
can be determined for both symmetrical and asymmetrical loading conditions. 
Asymmetrical dynamic buckling can be investigated. Solutions can be obtained 
for highly nonlinear problems utilizing as many as five of the harmonics 
generated by SAMMSOR program. A restart capability allows the user to 
restart the program at a specified time. 
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SOR - Shell Of Revolution 


Computer Programs 


A family of compatible computer codes for the analysis of the shell 
of revolution (SOR) structures has been developed by researchers at 
Texas ASM University. These analyses employ the matrix displacement 
method of structural analysis utilizing a curved shell element. 
Geometrically nonlinear static and dynamic analyses can be conducted 
using these codes. The important natural frequencies and node shapes 
can also be determined by employing another of the codes. Efficient 
programming provides codes capable of performing these desired analyses 
in relatively small amounts of computer time. 

Each of these programs has been extensively tested using problems the 
solutions to which have been reported by other researchers in order to 
establish the validity of the codas. In addition, the capabilities of 
the codes have been demonstrated in a number of publications by 
presenting solutions to problems which were unsolved by other 
researchers. 

SAMMSOR II - stiffness And Mass Matrices for Shells of Revolution are 
generated utilizing the first member of this family. This program 
accepts a description of the structure in terms of the coordinates and 
slopes of the nodes and the properties of the elements joining the 
nodes. For shells with simple geometries (such as cylinders, shallow 
caps, hemispheres, etc.) the shell geometry can be internally 
generated. Utilizing the element properties, the structural stiffness 
and mass matrices are generated for as many as twenty harmonics and 
stored on magnetic tape. Each of the other SOR programs utilizes the 
output tape generated by SAMMSOR as input data for the respective 
analyses. One advantage of creating the stiffness and mass matrices in 
a separate program is that a variety of analyses can be performed on the 
same shell configuration without having to create the matrices more than 
once. Obviously, a variety of boundary and loading conditiions can be 
employed without having to create new mass and stiffness matrices for 
each case. 

SNASOR II - The Static Nonlinear analysis of shells of Revolution 
subjected to arbitrary mechanical and thermal loading is performed using 
the second computer code. Utilizing the stiffness matrices generated by 
SAMMSOR and the loading conditions and boundary conditions input to 
SNASOR II, the equilibrium equations for the structure are generated. 
The nonlinear strain energy terns result in pseudo generalized forces 
(as functions of the displacements) which are combined with the applied 
generalized forces. The resulting set of nonlinear algebraic equili- 
brium equations is solved by one of several methods: Newton-Raphson 
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type iteration, incremental stiffness method, or a modified incremental 
stiffness method. In general, the Newton-Raphson procedure is the best 
and yields accurate results for highly nonlinear problems. 

DINASOR II - The thicd code is used for the Dynamic Nonlinear 
Analysis of Shells Of Revolution. The equations of motion of the shell 
are solved using Houbolt's numerical procedure with the nonlinear terms 
being moved to the right-hand side of the equilibrium equations and 
again treated as generalized loads. The displacements and stress 
resultants can be determined for both symmetrical and asymmetrical 
loading conditions. Asymmetrical dynamic buckling can be investigated 
using this program. solutions can be obtained for highly nonlinear 
problems in reasonable periods of time on the computer utilizing as many 
as five of the harmonics generated in SAMMS3R. A restart capability is 
incorporated in this code which allows the user to restart the program 
at a specified time without having to expend the computer time necessary 
to regenerate the prior response. 

FAMSOR - Frequencies And Modes for Shells Of Revolution can be 
determined using the fourth code. Using the stiffness matrix generated 
by SAKHSOR and a lumped mass representation developed from the consis- 
tent mass matrix generated by SAMMS3R, a specified number of natural 
frequencies (beginning with the lowest or fundamental frequency) are 
obtained using the inverse iteration method. The mode shapes for each 
of the frequencies are also obtained. 



J-2.5 




















ENVIRONMENT 


The DYNASOR II program runs under OS/ 360 MFT or MVT and requires 
220K of memory on an IBM S/360 computer. The system must also have a 
card reader, printer, 3 9-track tape drives and 2314 disk storage. 



SYSTEM OPERATION 


A. Run Characteristics 

1) . Funtional description of run 

(see abstract) 

2) . Relationship to other runs 

(see system flowchart) 

3) . Set-up and run instructions 

a. get SAMMSOR output tape 

b. 2 scratch tapes 

c. punch control cards 

d. fill out job ticket 

e. load job 

4) . Run frequency 

when desired 

5) . Run prerequisites 

SAMMSOR 

6) . Run control 

none 

7) . Run schedule 

no set schedule; run when desired or on demand 

8) . External procedures 


none 
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B. 

MACHINE SET UP FORM 


PROG NAME 

DYNASOR 

PROG U 

USER I.D. CODE 


AREA Aerospace Enqr. 

PROJECT 

PROGRAMMER Haisler 


JOB PREQ 

SAMMSOR 

REGION SIZE 

note 

K 


DIRECT ACCESS REQUIREMENTS: none 

PERMANENT 


USER 

ASSIGNED 

PACK 

DATA SET NAME 

DDNAME 

SERIAL ft / 
CELL # 

BIN # 


















■ B 


B ■ 













1 



















TEMPORARY none 


USER 

ASSIGNED 

PACK 

DATA SET NAME 

DDNAME 

SERIAL ft / 
CELL ft 

SPACE = 
































• 





TAPE REQUIREMENTS: 

#7 TRKi UNITS 0 U 9 TRKi UNITS 3 


DATA 

SET 

NAME 

DDNAME 

LABEL 

TYPE 

. 7 or 9 

TRK 

den/ 

MODE 

WRITE 

RING 

IN 

RET PD 
IN 

DAYS 

OUTPUT 
FROM 
RUN ft 

INPUT 
TO 
RUN ft 

SAMSOR 

FT01 F008 

SL 

9 



■MHEmSI 

SAMSOR 

DYNASOR 

none 

FT01F009 

SL 

9 


wnmm 

run 

scratch 

DYNASOR 

none 

FT01F010 

SL 

9 


ves 


scratch 

DYNASOR 

KsfSfl 

■ 




































ADDITION □ REPLACEMENT □ 


(FOR ADDITIONAL INFORMATION ATTACH ANOTHER SHEET) 
DATE SECTION PAGE 
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CARD READER REQUIRET'ENTS: sysin 


DATA SET NAME 

DDNAME 

SOURCE 

DISPOSITION 


































CARD PUNCH REQUIREMENTS: 


DATA SET NAME 


POCKET # 

DISPOSITION 


















PRIfie REQUIREMENTS: SYSPRINT 


DATA SET NAME 

DDNAME 

PRINT 

TRAIN 

FORM 

SE|UP 

LINES 

PER 

INCH 

BURST 

DECOL- 

UTE 

DISPOSITION 

































































ADDITION □ REPUCEMENT □ 


DATE SECTION PAGE 
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C. File Information Sheet 

date of last update 

name: SAMSOR 

system or application: DYNASOR 

description of contents and use: stiffness and mass matrices for 

up to 20 harmonies; input to DYNASOR II program 

storage medium: tape 

record characteristics: Fortran output, variable length records 

block characteristics: 7200 byte blocks, spanned 

file activity: (approximate when necessary) 

- not a permanently maintained file 

- created when computing shells of revolution 

- restart information written on tape by DYNASOR run. 
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D. Job Control Language 


//DYNASR 

/♦CLASS 

J0B( 

» » • * • } 

//J0BLIB 

DD 

DS NAME = USE R . DY NAS0R . J 0B L I B , D IS P= SH R 

//DYNAS0R 

EXEC 

PGM=DYNAS0R 

//FT01F005 

DD 

DDNAME= SYSIN 

//FT01F006 

DD 

SYS0UT=A 

//FT01F007 

DD 

SYS0UT=B 

//FT01F008 

// 

DD 

UNI T= 2400 , DIS P= (0LD .KEEP), DSNAM E= SAMS 0R IN , 
DCB= ( REC FM= VB S , BL0CKS I ZE= 7200), V0L= SER= SAMS01 

//FTOl F009 
// 

DD 

UN IT=2400,DI SP=( NEW, DELETE) ,DCB= ( RECFM=VBS , 
BL0CKSIZE=72OO) ,V0L=SER=DYNSR1 

//FTOl F010 
// 

DD 

UNIT=2400,DISP=(NEW,DELETE) ,DCB= (RECFM=VBS, 
BL0CKSIZE=72OO) , V0L=SER=DYNSR2 

//SYSIN 

DD 

★ 


. CONTROL CARDS 

/* 
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RUN CONTROL CARDS 
Card Type I 

Columns 

Variable 

Type 

1-5 

NCASES 

Numeric 

6-10 

ND 

Numeric 

11-15 

NS 

Numeric 

Card Type I I -A 



Col umns 

Variable 

Type 

1-5 

NCARDS 

Numeric 

6-10 

NT 

Numeric 

Card Type II-B 

Columns 

Variable 

Type 

1-80 

COMENT 

Alphanumeric 

Card Type III -A 

Columns 

Variable 

Type 

1-10 

TOTIME 

Numeric 

11-20 

DELTE 

Numeric 

21-25 

IRSTRT 

Numeric 

26-30 

INCRST 

Numeric 

31-35 

NCLOSE 

Numeric 

36-40 

ITELF 

Numeric 



RUN CONTROL CARDS 
Card Type III-B 


Columns 

Variable 

Type 

1-5 

NPRNTQ 

Numeric 

6-10 

I PRINT 

Numeric 

11-15 

NCLCST 

Numeric 

16-20 

NSTRSS 

Numeric 

21-25 

NPRNT 

Numeric 

26-30 

NPRNIT 

Numeric 

31-35 

NPRNTL 

Numeric 

36-40 

NPRNTF 

Numeric 

41-45 

NPRNTH 

Numeric 

46-50 

NPRNMS 

Numeric 

Card Type IV-A 

Columns 

Variable 

Type 

1-5 

NTHETA 

Numeric 

Card Type IV-B 

Columns 

Variable 

Type 

1-10 

THETA(l) 

Numeric 

11-20 

THETA(2) 

Numeric 

II 

II 


II 

II 


II 

THETA (NTHETA) 


Card Type V 

Columns 

Variable 

Type 

1-5 

NH 

Numeric 
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RUN CONTROL CARDS 
Card Type V (Continued) 


Columns 

Variable 

Type 

6-10 

IHARM(l) 

Numeric 

11-15 

IHARM (2 ) 


16-20 

IHARM(3) 


21-25 

IHARM(4) 


26-30 

IHARM(5) 


Card Type VI -A 

Columns 

Variable 

Type 

1-5 

NODRES 

Numeric 

Card Type VI -B 

/ 


Columns 

Variable 

Type 

1-5 

NP 

Numeric 

6-10 

NDIRCT 

Numeric 

Card Type VI I -A 

Columns 

Variable 

Type 

1-5 

IQN 

Numeric 

6-10 

IQN1 

Numeric 

Card Type VI I -B 

Columns 

Variable 

Type 

1-5 

INI 

Numeric 

6-10 

IN2 

Numeric 



RUN CONTROL CARDS 


Card Type VI I -B (Continued) 


Columns 

Variable 

Type 

11-20 

q 

Numeric 

21-30 

l 

q 

Numeri c 

31-40 

2 

m 

q„ 

Numeric 

41-50 

% 

Numeric 

Card Type VI I -C 

Columns 

Variable 

Type 

1-5 

INI 

Numeric 

6-10 

IN2 

Numeric 

11-20 

• 

q , 

Numeric 

21-30 

• 

Numeri c 

31-40 

• 

q 

Numeri c 

41-50 

3 

• 

q 

Numeric 


Card Type VIII 


Columns 

Variable 

Type 

1-5 

IELM1 

Numeri c 

6-10 

IELM2 

Numeric 

11-20 

ALSI1 

Numeric 

21-30 

ALTI1 

Numeric 


Card Type IX-A 

Columns Variable Type 

T1 


1-10 


Numeric 
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RUN CONTROL CARDS 

Card Type IX-A (Continued) 


Columns 

Variable 

Type 

11-15 

NCF 

Numeric 

16-20 

IDELF 

Numeric 

21-25 

IDCOE 

Numeric 

26-30 

ITCOE 

Numeric 

31-38 

CONSTF 

Alphanumeric 

Card Type IX-B-1 



Columns 

Variable 

Type 

1-5 

NCF1 

Numeric 

Card Type IX-B-2 



Columns 

Variable 

Type 

1-5 

INI 

Numeric 

6-10 

IN2 

Numeric 

11-20 

FI 

Numeric 

21-30 

F2 

Numeric 

31-40 

F3 

Numeric 

41-50 

F4 

Numeric 

Card Type IX-C-l-a 



Columns 

Variable 

Type 

1-5 

IELM1 

Numeric 

6-10 

IELM2 

Numeric 

11-15 

NDP 

Numeric 



RUN CONTROL CARDS 
Card Type IX-C-l-b 


Columns 

Variable 

Type 

1-10 

THETB 

Numeric 

11-20 

P 

Numeric 

21-30 

R 

Numeric 

31-40 

S 

Numeric 

Card Type IX-C-2-a 

Columns 

Variable 

Type 

1-5 

IELM1 

Numeric 

6-10 

IELM2 

Numeric 

Card Type IX-C-2-b 

Columns 

Variable 

Type 

1-10 

P 

Numeric 

11-20 

R 

Numeric 

21-30 

S 

Numeri c 

Card Type IX-D-l-a 

Col umns 

Variable 

Type 

1-5 

IELM1 

Numeric 

6-10 

IELM2 

Numeric 

11-15 

NDP 

Numeric 


Card Type IX-D-l-b 


Columns 

Variable 

1-10 

THETB 

11-20 

P 

21-30 

R 


Type 

Numeric 

Numeric 


Numeri c 
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RUN CONTROL CARDS 
Card Type IX-D-2-a 


Columns 

Variable 

Type 

1-5 

I ELM! 

Numeric 

6-10 

IELM2 

Numeric 

Card Type IX-D-2-b 

Col umns 

Variable 

Type 

1-10 

TH1 

Numeric 

11-20 

DTH1 

Numeric 

Card Type X 

Col umns 

Punch 


1-11 

END OF CASE 


Card Type XI 



Columns 

Punch 


1-10 

END OF RUN 





. END 0F CASE 


Temperatures 


Pressures 


Concentrated Loads 


IX. Applied Loads 


/ VIII. Coeff. of Thermal Expansion 


/ VII. Initial Conditions Cards 


VI. Nodal Restraint Cards 


. Fourier Harmonics Card 


IV. Circumferential Angle Cards 
III. Case Control Cards 

t "" " ■ • "• 

f TE Case Identification Cards 


I. Run Control Card 




/ X. END 0F CASE 


/ Tempera 


Temperatures 


Pressures 


Concentrated Loads 


/ IX. Applied Loads 


/'VIII. Coeff. of Thermal Expansion 


r IV. Circumferential Angle Cards 


III. Case Control Cards 



ase Identification Cards 


I. Run Contol Card 


FIG. 1 CONSTITUTION OF DATA DECKS - INITIAL RUN AND RESTART MODES. 
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DECK SETUP FOR DYNASOR II 


CONTROL CARDS 


//SYS IN DD 


'//FT01F009 DD UNIT*... 


///FT01F008 DD UNIT*... 


X//FT01F007 DD SYSOUT=B 


7FT01 F006 DD SYSOUT=A 


X//FT01F005 DD DDNAME=SYSIN 


X //DYNASOR EXEC PGM= DYNASOR 


/ //JOBLIB DD DSNAME= USER. DYNASOR. 

I X/*CLASS 


X//DYNASR JOB 
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G. 360 MESSAGE FORM 


DATE 

ADDITION [] REPLACEMENT [] 

[] OPERATIONAL [] ADMINISTRATIVE 

Jobname _PROGRAMMER MSG ID 

MESSAGE: The number of input cases does not agree with the value of 

ncases input 

MEANING: 


ACTION: 


Section Page 



0 - 2.22 


360 MESSAGE FORM 


DATE 

ADDITION [] REPLACEMENT [] 


[] OPERATIONAL [] ADMINISTRATIVE 

Jobname PROGRAMMER MSG ID 


MESSAGE: Restart information for time increment no., I5,/,10X, corresponding 

to time, F12.4, microseconds ,/,2X, has been placed on tape for use 
in subsequent runs// 

MEANING: 


ACTION: 


Section Page 
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360 MESSAGE FORM 


DATE 

ADDITION [] REPLACEMENT [] 

[] OPERATIONAL [] ADMINISTRATIVE 

Jobname PROGRAMMER MSG ID_ 

MESSAGE: ITAM, 15, 5X time, E 12.5 Execution terminated - displacements 

greater than l.E + 4 

MEANING: 


ACTION: 


Secti on 


X 

Page Vy 
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H. CHECKPOINT, RESTART, ERROR PROCEDURES, BACKUP, AND RECOVERY PROCEDURES 


Recovery Procedures: 

If many computations are to be done, a backup copy of the SAMMSOR input 
and restart tape can be made. Otherwise, no backup is required. 

Restart Procedures: 

To restart DYNASOR program, set IRSTRT = 1 on control card type III -A . 

Use SAMMSOR input tape. Restart information was written onto this tape in the 
previous run. 
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ABSTRACT 


The DYNASOR II program is used for the DYnamic Nonlinear Analysis of 
Shells Of Revolution. The equations of motion of the shell are solved 
using Houbolt's numerical procedure. The displacements and stress resultants 
can be determined for both symmetrical and asymmetrical loading conditions. 
Asymmetrical dynamic buckling can be investigated. Solutions can be obtained 
for highly nonlinear problems utilizing as many as five of the harmonics 
generated by SAMMSOR program. A restart capability allows the user to 
restart the program at a specified time. 
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SOR — Shell Of Revolution 




Computer Programs 


A family of compatible computer codes for the analysis of the shell 
of revolution (SOR) structures has been developed by researchers at 
Texas ASM University. These analyses employ the matrix displacement 
method of structural analysis utilizing a curved shell element. 
Geometrically nonlinear static and dynamic analyses can be conducted 
using these codes. The important natural frequencies and mode shapes 
can also be determined by employing another of the codes. Efficient 
programming provides codes capable of performing these desired analyses 
in relatively small amounts of computer time. 

Each of these programs has been extensively tested using problems the 
solutions to which have been reported by other researchers in order to 
establish the validity of the codes. In addition, the capabilities of 
the codes have been demonstrated in a number of publications by 
presenting solutions to problems which were unsolved by other 
researchers. 

SAMMSOR II - stiffness And Mass Matrices for shells Of Revolution are 
generated utilizing the first member of this family. This program 
accepts a description oE the structure in terms of the coordinates and 
slopes of the nodes and the properties of the elements joining the 
nodes. For shells with simple geometries (such as cylinders, shallow 
caps, hemispheres, etc.) the shell geometry can be internally 
generated. Utilizing the element properties, the structural stiffness 
and mass matrices ace generated for as many as twenty harmonics and 
stored on magnetic tape. Each of the other SOR programs utilizes the 
output tape generated by SAMMSOR as input data for the respective 
analyses. One advantage of creating the stiffness and mass matrices in 
a separate program is that a variety of analyses can be performed on the 
same shell configuration without having to create the matrices more than 
once. Obviously, a variety of boundary and loading conditiions can be 
employed without having to create new mass and stiffness matrices for 
each case. 

SNASOR II - The static Nonlinear analysis of shells of Revolution 
subjected to arbitrary mechanical and thermal loading is performed using 
the second computer code. Utilizing the stiffness matrices generated by 
SAMMSOR and the loading conditions and boundary conditions input to 
SNASOR II, the equilibrium equations for the structure are generated. 
The nonlinear strain energy terms result in pseudo generalized forces 
(as functions of the displacements) which are combined with the applied 
generalized forces. The resulting set of nonlinear algebraic equili- 
brium equations is solved by one of several methods: Newton-Raphson 
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type iteration, incremental stiffness method, or a modified incremental 
stiffness method. In general, the Newton-Raphson procedurra is the best 
and yields accurate results for highly nonlinear problems. 

DYNASOR II - The third code is used for the Dynamic Nonlinear 
Analysis of Shells Of Revolution. The equations of motion of the shell 
are solved using Houbolt’s numerical procedure with the nonlinear terms 
being moved to the right-hand side of the equilibrium equations and 
again treated as generalized loads. The displacements and stress 
resultants can be determined for both symmetrical and asymmetrical 
loading conditions. Asymmetrical dynamic buckling can be investigated 
using this program. Solutions can be obtained for highly nonlinear 
problems in reasonable periods of time on the computer utilizing as many 
as five of the harmonics generated in SAMMSDR. A restart capability is 
incorporated in this code which allows the user to restart the program 
at a specified time without having to expend the computer time necessary 
to regenerate the prior response. 

FAMSOR - Frequencies And Modes for Shells of Revolution can be 
determined using the fourth code. Using the stiffness matrix generated 
by SAMMSOR and a lumped mass representation developed from the consis- 
tent mass matrix generated by SAM M SDR, a specified number of natural 
frequencies (beginning with the lowest or fundamental frequency) are 
obtained using the inverse iteration method. The mode shapes for each 
of the frequencies are also obtained. 
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SYSTEM FLOWCHART 
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ENVIRONMENT 

The DYNASOR II program runs under OS/360 MFT or MVT and requires 
220K of memory on an IBM S/360 computer. The system must also have a 
card reader, printer, 3 9-track tape drives and 2314 disk storage. 


r 

K - 



Overlay (O.O) 


CLSRAT* 

RELES* 

CLRTAB* 

RHEAD* 

COPYM* 

RVEC* 

CREATE* 

STATUS* 

DMPTA8* 

STOREM* 

FETCHM* 

SURFIN* 

FIND* 

TPRINT* 

INITAL 

UREWIND* 

IOUNTS 

UTABUP* 

LINE IN* 

WUEAD* 

LOCATE* 

WSVEC* 

MONITR 

WVEC* 

OPTFIL* 

WVSVEC* 

PNAME* 

ZERO* 



Overlay (1,0) 


Program PREPAR 


BLDTAB 

PILE 


Overlay (2,0) 





Overlay (6,2) 


Program TRIM 


CIHVER* 

FA 

FS 

FT 

FTOTAL 

F2F3 

TA 

TKDATA 

TNPRT 

TR1MCC 

TRIMIT 

TS 

U'TDATA 

WTCER 


Overlay (6,4) 
Program INTDW 


PROGRAM OVERLAY STRUCTURE 


The DYNASOR II program does not require overlaying. 
This is a sample overlay map for the SDSS program, part of 
a set of programs developed by Boeing for the NASA Space 
Shuttle Project. 
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FORTRAN 


0001 
0002 
0003 
000 A 
0005 

00C6 

0C07 
0C0 8 
0009 


0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 
0019 


IV G LEVEL 20 


MAIN DATE = 72353 11/03/29 


CE { FRCES I 
C 
C 
C 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DESCRIPTION - TO READ IN THE D I STR I RUT ED . LOA DS ON THE SHELL 
STRUCTURE. THEN, USING FITHER CIRCUMFERENTIAL OR 
FOURIER COEFFICIENTS DATA, CALCULATE THE LINEAR 
GENERALI ZED LOAOS. 


INPUT ARGUMENTS. 

IB = FORCE ARRAY STEPPING PARAMETER, USED TO MODIFY CURRENT 

BLOCK OF STORAGE FOR FORCE. 

IELM = NUMBER OF SHELL ELEMENTS. 

OUTPUT ARGUMENTS. 

FORCE = MATRIX OF GENERALIZED FORCES DUE TO EXTERNAL LOADS AND 
TEMPERATURES. 

Q THERMAL COEFFICIENTS USED IN CALCULATING GENERALIZED 

LINEAR LOAOS DUE TO THERMAL EFFECTS. 

OQ = GENERALIZED LINEAR LOADS DUE TO THERMAL EFFECTS. 

EXTERNALS. 

CALLED BY 

INPUT 


SUBROUTINE FRCES ( I ELM, AL PHK , I B I 
IMPLICIT RE AL *8 (A-H.O-Z) 

COMMON /FRCE/ P ( 74 ) ,R ( 74) , S ( 74 I , THE T B ( 74 ) 

COMMON /CHALS/ AL ( 1 67) , CHECK ( 8 , 8 ) 

COMMON /QS / UNI 1020) ,UN1 ( 1 020 ), FORCE I 2040 1, QP C 1020 ), QP 1 1 1020 ) , 

1 0N2I1020) 

COMMON /CONST/ NH ,NELEMS , NNODE S ,NS I Z E,NPRNTQ , NE Q, NEQT , N, NN , NHNS , 

1 DT2,NPRNTL,NPRNTF,IDELF,IDC0E 

COMMON /HARM/ NHP , I HARM! 5 ) 

COMMON /QUES/ Q<8),00(8) 

COMMON /TAPES/ NT ,ND , NS 

Cl READ DISTRIBUTED LOADS USING CIRCUMFERENTIAL ANGLES OR FOURIER 
C1C COEFFICIENTS 

P I = 3. 141592 65 
IF I IELM.EQ.l ) I ELM2=0 

IF I lELM.LE.IELM2.AND.IELM.NE.il GO TO 40 
IF ( ICCOE.NE. 1) GO TO 10 

IF { NPRNTL.EU.l. AND. IELM.EQ.l) WRITE (6,160) 

C READ INPUT DATA FOR CARD TYPE IX - C - 2 

REAL! (NO, 170) I E LM1 , 1 ELM2 , (P I I ) ,R (I) , S I I) , I = 1 , NH) 

IF I NPRNTL.EQ.l) WRITE (6,180) I ELM1 , 1 ELM2 , ( P ( I ) , R ( I) , S ( I > , 1 , 1 = l , 
l NH) 


GO TO 40 
10 CONTINUE 

IF < NPRNTL.EQ.l. AND. IELM.EQ.l I WRITE 


(6,190 > 


DYN 14872 
DYN 14874 
DYN 1487 6 
DYN 1 4878 
DYN 1 4880 
0YN14882 
DYN 14884 
DYN 1 48 R 6 
DYN 14888 
DYN 1 4890 
DYN 1 4892 
DYN 14894 
DYN 14896 
DYN 14898 
DYN14900 
DYN 14902 
DYN14904 
DYN 1 490 6 
DYN14908 
DYN14910 
DYN 14912 
DYN 14914 
DYN 14916 
DYN 1 4918 
DYN14920 
DYN 1 4922 
DY N 1 492 4 
DYN 1 4926 
DYN 14928 
DYN 14930 
DYN14940 
DYN 1 4950 
DYN 1 4960 
DYN14970 
DYN 14 97 2 
DYN 1 4974 
DYN 1 5020 
DYN 15030 
DYN1 5040 
DYN 1 5050 
DYN1 5060 
DYN 15070 
DYN15080 
DYN 15090 
DYN1 5100 
DYN15110 
DYN15120 
DYN15130 


page 0001 
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20 


FRCES 


DATE = 72353 


11/03/29 



C 


READ DISTRIBUTED LOADS 

DYN 1 5140 


C 



DYN 15150 


C 


READ INPUT DATA FOR CARD TYPE IX - C - 1 

DYN15160 

0020 



READ ( NO , 200 ) 1 ELM1 » I ELM2 , NOP , ( THETB (II , P (I ) ,R( I) ,5(1) , I=i,NDP) 

DYN 15170 

0021 



N0P2=2* NDP+ 1 

DYN 1 5 1 80 


C 



DYN 15188 

002 2 



DO 20 IF=1,NDP 

DYN I 5190 

0023 



ANG=360.0-THETB(IF) 

DYN 1 5200 

002 -V 



KEY=NDP2-IF 

DYN 1 52 10 

0C2 5 



THETB(KEY) =ang 

DYN 1 5220 

002 6 



P (KEYI=P( IF) 

DYN 1 5230 

0027 



R(KEY)=R( IF1 

DYN15240 

0028 



S(KEYI=S( IF ) 

DYN 1 5250 

0029 


20 

CONTINUE 

DYN 1 5260 


C 



DYN 1 5263 

0030 



IF (NPRNTL.EO.H WRITE (6,210) I ELM1 , I ELM2 , ( P (I) , R ( I ) , S < I) , 

DYN 1 5270 




1 THETB( I ) ,THETB( 1*1) ,1=1, NOP) 

DYN15280 

0031 



ND2=2*NDP 

DYN15290 

0032 



NDPP2=NDP*2 

DYN 1 5300 

0033 



IF ( NPRNTL.EQ.l. ANO.NDP.GT.l) WRITE (6,220) ( P ( I ) , R ( I I.SII), 

DYN15310 




1 THFTB< 1-1) ,THETB( I ) , I =N0PP2 ,N02 ) 

DYN 15320 


c 



DYN 15328 

0034 



DO 30 I DP= l , ND2 

DYN 1 5330 

0035 



T HE TB(IDP)=THETB(IDP)/57. 2957795 

DYN 1 5340 

0036 


30 

CONTINUE 

DYN I 5342 


c 



DYN 1 5345 


Cl 


CALCULATE THE LINEAR GENERALIZED LOADS 

DYN15347 

0037 


40 

CONTINUE 

DYN! 5350 


c 



DYN1 5358 

0038 



DO 150 I H= 1 , NH 

DYN1 5360 

0039 



KYP= IH ARM( IH) 

DYN15370 

004 0 



YKP=KYP 

DYN15380 

0041 



IF ( IDCOE.EQ. 1) GO TO 110 

DYN 1 5390 


c 



DYN 1 5398 

0042 



DO 50 1=1,8 

DYN 1 5400 

0043 



Q ( I ) =0. 0 

DYN15410 

0044 


50 

CONTINUE 

DYN 1 54 1 2 


c 



DYN 15415 

0045 



NDP1=2.0*NDP-1 

DYN15420 


c 



DYN 1 5428 

0046 



DO 100 1=1 ,N0P1 

DYN 1 5430 

0047 



IF (NOP.EQ.l) GO TO 70 

DYN1 5440 

0048 



X1=THETB( I )*YKP 

DYN1545P 

0049 



X2=THETB< 1+1) *YKP 

DYN 1 5460 

0050 



IF (KYP.GT.O) GO TO 60 

DYN! 5470 

0051 



PINT = P< I ) *< TH ETB ( I+D-THETBI I ) ) 

DYN1543C 

0052 



RlNT=R( I )*(THETB( 1*1 )-THETB(l ) ) 

DYN15490 

0053 



SINT=0.0 

DYN15500 
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005 A . 



GO TO 90 

0055 


60 

PINT=P(I)*(DSIN(X2)-DSIN(X1))/YKP 

0056 



R 1 NT =R( I)*(DS1N(X2>— DSIN1X1 ) l/YKP 

0057 



SINT=-S(I) *(DC0S(X2)-DC0S(X1) l/YKP 

0058 



GO TO 90 

0059 


70 

IF (KYP.GT.O) GO TO 80 

0060 



PINT=2.0*PI*P(1) 

0061 



R1NT=2.0*P1*R(1) 

0062 



S I NT =C. 0 

Of. 63 



GO TO 90 

0964 


80 

P I NT=0. 0 

006 5 



R 1 NT = 0. 0 

0( 66 



SI NT =0.0 

0067 


90 

Q(1)=Q(1)+RINT*AL(1) 

006 8 



Q( 2 ) =Q( 21 *R INT* AL ( 2) 

006 9 



0( 3) = Q< 3URINT*AL(3> 

00 70 



0(4) = 0( 4) + R I NT* AL ( 1 57 ) 

0071 



0 ( 5 ) =0 ( 51 *PINT*AL( 1 1 

0072 



0(61=0(6) ♦PINT*AL(2) 

0073 



017)=0<7I+SINT*AL(1I 

0074 



Q(8)=Q(8)*SINT*AL<2) 

Of 75 

r 

ICO 

CONTINUE 

0076 

U 


GO TO 120 

0077 


110 

CONTINUE 

0078 



C 12=1.0 

0079 



IF (KYP.EQ.O) Cl 2=2. 0 

0080 



PINT=C12*PI*P( IH) 

0081 



RINT=C12*PI*R(IH) 

C082 



S INT=( 2.0-C12) *PI*SUH> 

0083 



Q ( 1 ) =R l NT* AL ( 1 ) 

00 84 



0(21 -R I NT* AL ( 2 I 

0085 



U< 3) =R I NT* AL ( 3 I 

0 086 



0(4) =RINT*AL ( 157) 

0087 



Q< 5) =PINT*AL( 1 ) 

0088 



Q(6)=PINT*AL(2) 

0089 



Q(7)=SINT*AL(1) 

0090 



Q( 8)=SINT*AL(2) 

DC 9 1 

r 

120 

CONTINUE 

CC92 

U 


DO 130 1=1 ,8 

OC 93 

c 


00 (1) =0.0 

0094 

Kr 


DO 130 J= 1 « 8 

0095 



QQU )=OQC )+CHECK( J, I )*Q( J 1 

0096 


130 

CONTINUE 


C 

c 
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PAGE 0003 
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DYN1 5600 
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DYN15620 
DYN1 5630 
DYNl 5640 
DYNl 5650 
DYN 1 5660 
DYNl 5670 
DYNl 5680 
DYN 1 5690 
DYNl 5700 
DYN 15710 
DYN 1 57 1 2 
DYN 1 57 1 5 
DYN 1 5720 
DYNl 5730 
DYN15749 
DYN 15750 
DYNl 5760 
DYN 15770 
DYNl 5780 
DYN 1 5790 
DYNl 5800 
DYNl 5810 
DYNl 5820 
DYNl 5*30 
DYNl 5840 
DYNl 5850 
DYNl 5860 
DYN 15870 
DYNl 5878 
DYNl 5880 
0YN15890 
DYN 15898 
DYN 1 5900 
DYNl 5910 
DYN 15912 
DYN 15915 
DYNl 591 8 
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0097 


DO 

140 1=1,8 

DYN 1 5920 

0098 



J=4*( IELM-1H-I*UH-1)*NEQ+IB*N£QT 

DYN 1>5930 

0099 



FORCEJ J>=FORCE(J) +QQ (I> 

DYN15940 

0100 


140 CONTINUE 

DYN 15942 


c 



0YN15945 

0101 


150 CONTINUE 

DYN15950 


c 



DYN 1 595 3 

0102 


RETURN 


DYN15960 


c 



DYN15970 

0103 


160 FORMAT 

( 1H1 ,35X,4CHF0URIER COEFFICIENTS OF APPLIED PRESSURE, 

DYN15980 



1 

9H LOADINGS// 

DYN 1 5982 



1 

2 OX, 10HMERIDI ANAL,20X,6HN0RMAL, 20X , 10HTANGENT IAL.10X, 

DYN 1 5990 



2 

12HHARM0NIC NO.//S 

DYN16000 

0104 


170 FORMAT 

(2I5/(3F10.0) ) 

DYN160 10 

0105 


180 FORMAT 

</69X,llHELFMENT N0.,I3,1H-,I 3,// < 2 X , 3D2 8. 7 , 1 5X , 12) > 

DYN 1 6020 

0106 


190 FORMAT 

< 1H1.51X.30HAPPLIED LOADS ON THE STRUCTURE/// 

DYN 1 6030 



1 

56X, 19HPRESSURE COMPONENTS// 

DYN 16032 



2 

2CX, 13HMERIDI AN AL ,20 X , 6HN0R MAL , 2C X , 10 HT ANGENT I AL , 1 1 X, 

DYN 1 6040 



2 

19HFR0M THETA TO THE TA , 9H( D EGRE E S >> 

DYN 1 60 50 

0107 


200 FORMAT 

<315/(4F10.C)> 

DYN 1 6060 

0108 


210 FORMAT 

</60X,llHELEMENT NO.,I3,1H-,I2//(2X,3F28.3,12X,2F10.3)1 

DYN 16070 

0109 


220 FORMAT 

(2X,3F28.3,12X,2F10.3J 

DYN16080 

0110 


END 


DYN 1 6090 
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MAIN 
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PAGE 0001 


0001 

0002 

0003 

0009 

000 5 
0006 


CE ( HQUBQN ) 

C 

DESCRIPTION - TO SET UP AND CONTROL THE SOLUTION OF THE 
EQUATIONS OF MOTICN FOR EACH TIME STEP EXCEPT THE FIRST ONE. 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

r 

V* 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INPUT ARGUMENTS. 


FORCE * MATRIX OF GENERALIZED FORCES DUE TO EXTERNAL LOADS AND 
TEMPERATURES. 

= HARMONIC KEY. 

= RESTART KEY. 


IH 

KY 

QN 


DYNC9772 
DYNC 9774 
DYN09776 
DYN09778 
DYN09780 
DYN09782 
DYN09784 
DYN99786 
DYN09788 
DYNC 9790 


= DISPLACEMENTS AT TIME INCREMENT IN-1) UP TO STATEMENT 20 DYN09792 


AFTER STATEMENT 30 THIS MATRIX HAS BEEN CHANGED TO 
THE DISPLACEMENTS AT TIME STEP IN). 


DYN09794 

DYN09796 


QN1 


= DISPLACEMENTS AT TIME INCREMENT (N-2) BEFORE STATEMENT 10DYN09798 


AND AT TIME INCREMENT (N-l) AFTER STATEMENT 20. DYN09800 

QP = Q - PARTIAL DERIVATIVE OF U-NL WITH RESPECT TO LOWER DYND9802 

CASE Q AT TIME STEP (N-l). DYN09804 

QP1 = Q - PARTIAL DERIVATIVE OF U-NL WITH RESPECT TO LOWER C ASEDYN99806 
Q AT TIME STEP (N-2) - DYN09808 

DYN09810 

OUTPUT ARGUMENTS. DYN09812 

QLOAD = RIGHT-HAND SIDE OF THE DYNAMIC EQUATIONS OF MOTION DYN09814 

BEFORE CALLING SOLVEQ. DYN09816 

= DISPLACEMENTS AT TIME INCREMENT I N- 1 ) UP TO STATEMENT 20 DYN09818 


QN 


QN1 


QN2 


QP1 


AFTER STATEMENT 30 THIS MATRIX HAS BEEN CHANGED TO 
THE DISPLACEMENTS AT TIME STEP (N). 


DYNC9820 
DYND982 2 


= DISPLACEMENTS AT TIME INCREMENT (N-2) BEFORE STATEMENT 10DYNC9824 


AND AT TIME INCREMENT (N-l) AFTER STATEMENT 20. 


DYNC 9826 


= DISPLACEMENTS AT TIME INCREMENT f N- 3 ) BEFORE STATEMENT 10DYN09828 


AND AT TIME STEP (N-2) AFTER STATEMENT 20. 


DYNC98 30 


= Q - PARTIAL DERIVATIVE OF U-NL WITH RESPFCT TO LOWER CASEDYN09832 


Q AT TIME STEP (N-2) . 


EXTERNALS. 

CALLED BY 

CALLS 


SETUP 


MATMUT 

SOLVEQ 

SUBROUTINE HOUBQN (KY,IH) 

IMPLICIT REAL*8 (A-H.O-Z) 

COMMON /SLVEEQ/ XN ( 6550 ), QLOAD ( 204 1 

COMMON /QS/ QN(1020) , QN1 ( 1020 ), FORCE ( 2040 ), QP ( 1020 ), QP 1 ( 1020 ) , 

1 QN211020) 

COMMON /RSTRNT/ NODRES .NCLOSE . LK ( 204 ) 

COMMON /CONST/ NH .NELEMS , NNODES ,NS I ZE ,NPRNT Q, NEQ» NEQT , N, NN , NHNS . 
1 DT2,NPRNTLtNPRNTF,IDELF,I0C0E 


DYNC 9834 
DYN09836 
DYN09838 
DYNC9840 
0YN09R42 
DYNC9844 
DYN09846 
DYN09848 
DYNC9850 
DYNC9852 
DYNC'9854 
DYN09856 
DYN09858 
DYN09860 
DYNC 9862 
DYNC 9864 
DYN99866 
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HOUBQN 
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PAGE 0002 


0007 
000 0 


0009 

0010 
0011 
0012 


0013 

0G14 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 


0023 

0024 

0025 

0026 
0027 
002 8 

002 9 

0030 

00 31 

0032 
00 33 
0034 

003 5 

0036 

0037 



COMMON /PS/ XP I 6550 ) 

COMMON /TMFT/ TOT I ME , OELTE , T I ME , TO , T 1 
Cl COMBINING THE DISPLACEMENTS OF THREE PREVIOUS TIME INCREMENTS 
C 

DO 10 1=1 ,NEQ 
NP I =N+ I 

QN2INPI I=5.*QN(NPI)-4.*QN1 (NPI)-*-QN2<NPI> 

10 CONTINUE 
C 

Cl MULTIPLY STRUCTURAL MASS MATRIX BY PREVIOUS DISPLACEMENTS 
CALL MATMUT I IH ,QN2 , XP.QLOAD, NEQ) 

Cl COMBINE RIGHT-HAND-SIOE £ UPDATE DISPLACEMENT AND FORCE MATRICES 
T3=( TIME-TOJ/ITl-TO) 

C 

00 20 1=1, NEQ 
NP I =N* l 

0 SS = 2 . 0 +QP ( NPI I-OPKNPI JVFORCEINPI » «-T 3* I FORCE ( NP I+NEQT ) - 
1 FORCE (NPI ) I 

QL0AD(I)=QLUA0(I)*-DT2*QSS 
UN2 ( NPI I = QN 1 < NPI I 
QN1 ( NPI J =UN( NPI I 
QPKNPI ) = QP( NPI I 
20 CONTINUE 
C 

Cl APPLY BOUNDARY CONDITIONS TO R I GHT-HANO-S I DE 
NOORE=NOORES 

IF ( NCLOSE.EQ.l.ANO.KY.EQ.O) N0DRE=N0DRE*2 
IF ( NODRE . EQ.OI GO TO 40 
C 

00 30 1=1, NOORE 
I EQ=LK( I ) 

3L0ADI IEQ) =0.0 
30 CONTINUE 
C 

40 CONTINUE 

Cl SOLVE FOR DISPLACEMENTS 
CALL SOLVE Q (IH) 

C 

DO 50 1=1, NEQ 
NP I =N+ I 

QNINPI ) =QLOAO( I ) 

50 CONTINUE 
C 

RETURN 

ENO 


DYN09868 
DYN09870 
DYNC9872 
DYN09918 
DYNC9920 
DYN09930 
DYN09940 
D YN 09950 
DYN09953 
DYN09955 
DYN09960 
DYNC9962 
DYNC9980 
DYNC 9988 
DYN09990 
DYN10000 
DYN 10010 
DYN 1001 2 
DYN l 0030 
DYN 1 0040 
DYN10050 
DYN10060 
DYN10C70 
DYN10073 
DYN10075 
DYN10090 
DYN 1 0100 
DYN 10 1 1 0 
DYN 1 01 1 8 
DYN 1 0 1 20 
DYN 1 01 30 
DYN10140 
DYN 10150 
DYN 1 0 1 53 
DYN 1 0160 
DYN 10 1 62 
DYN1C180 
DYN 10188 
DYN 1 0190 
DYN102OO 
DYN10210 
DYN1C220 
DYN10223 
DYN10230 
DYN10240 
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KATMUT 
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CEIHOUBQl) 


DYN0B962 


C 



DYNC6964 


C 

DESCRIPTION - TO CALCULATE THE DISPLACEMENTS AT THE END 

DYN08966 


C 


OF THE FIRST TIME STEP ONLY ANO SET UP THE COEFFICIENT 

DYN0B968 


r 


MATRICES FOR USE IN SUBSEQUENT STEPS. 

DYN C 8970 


c 



DYN 0 8972 


c 

INPUT ARGUMENTS. 

DYN09974 


c 

delte 

= TIME INCREMENT USEO IN SOLVING THE EQUATIONS OF MOTION 

DYN08976 


c 


OF THE SHELL. 

DYN08978 


c 

DT2 

= THE SQUARE OF THE TIME INCREMENT. 

DYNC8980 


c 

FORCE 

= MATRIX OF GENERALIZED FORCES DUE TO EXTERNAL LOAOS AND 

DYN08982 


c 


TEMPERATURES. 

DYNC8984 


c 

IH 

= HARMONIC KEY. 

DYN08986 


c 

IRSTRT 

= INPUT CONSTANT WHICH INDICATES IF THE PROGRAM IS BEING 

DYN08988 


c 


RESTARTED. 

DYNC8990 


c 

KY 

= RESTART KEY. 

DYN08992 


c 

QN 

= DISPLACEMENTS AT TIME INCREMENT IN-1) UP TO STATEMENT 20 

DYN08994 


c 


AFTER STATEMENT 30 THIS MATRIX HAS BEEN CHANGED TO 

0YN08996 


r 


THE DISPLACEMENTS AT TIME STEP IN). 

DYN08998 


c 

TIME 

= CURRENT TIME. 

DYNC9000 


c 

TO 

= INITIAL TIME. 

DYN09002 


c 

T 1 

= STOP TIME. 

DYNC 9004 


c 

XN 

= STRUCTURAL STIFFNESS MATRIX AS READ FROM INPUT TAPE. 

DYN090O6 


c 


AFTER THE FIRST TIME STEP, THIS MATRIX IS REPLACED BY A 

DYN090C8 


c 


COMBINATION OF THE MASS AND STIFFNESS MATRICES. 

DYN09010 


c 



DYN09012 


c 

EXTERNALS. 


DYN09014 


c 

CALLED 

BY 

DYNC9016 


c 


SETUP 

DYN09018 


c 

CALLS 


DYNC9020 


c 


matmut 

DYNC 902 2 


c 


NRESTR 

DY NO 9024 


c 


SOLVEQ 

DYN09026 


c 



DYNC 9028 

0001 


SUBROUTINE H0UBQ1 IKY.IH) 

DYNC 9030 

0002 


IMPLICIT REAL*8 (A-H.O-Z) 

DYN09032 

0003 


COMMON 

/SLVEEQ/ XNI6550I ,QL0AD(204) 

DYN09034 

0004 


COMMON 

/QS/ QN( 1020) , QN1 (1020 ) , FORCE I 2040 ) , QP ( 1020 ) , QP 1 1 102C ) , 

DYN09036 



1 

QN2( 1020) 

DYN09038 

0005 


COMMON 

/RSTRNT/ NCORES.NCLOSE ,LK<204) 

DYNC 9040 

0006 


COMMON 

/CONST/ NH .NELEMS ,NNODES ,NS I Z E , NPRNTQ , NEQ, NEQT , N , NN, NHNS , 

DYNC 9042 



1 

DT2.NPRNTL ,NPRNTF, IDELF, IDCOE 

DYN09044 

0007 


COMMON 

/PS/ XP ( 6550) 

DYN09046 

0008 


COMMON 

/TMFT/ TOTIME, DELTE, TIME, TO, Tl 

DYN09050 

0009 


COMMON 

/RESTRT/ IRSTRT.NPRNT ,NPRNI T , ITP , T IMEP, DELTEP 

DYNC 9060 

0010 


DIMENSION QL0AD1 11020) 

DYN09070 


c 



DYN09080 

0011 


IFLAG=C 


DYN09130 


J-3.27 



FORTRAN IV G LEVEL 20 HOUBQI DATE = 72353 11/03/29 PAGE 0002 


0012 



T3 = ( TIME-T01/IT1-T0) 

DYN09140 

0013 



T3M1=(TIME-DELTE-T0I/ITI-T0) 

DYNC9150 


Cl 


MULTIPLY STIFFNESS MATRIX BY INITIAL DISPLACEMENT 

DYN09152 

0014 



CALL MATMUT ( IH ,QN1 , XN, QLOADI ,NEQ ! 

DYN09170 


C 



DYN091 78 

0015 



DO 20 1=1, NEO 

DYN 0 9180 

0016 



NPI =N+ I 

DYN09190 

0017 



QMNPI ) = QN 1 ( NPI) ♦CELT E*QN< NPI) 

DYN 09200 

0018 



IF I IKSTRT.EQ.l) GO TO 10 

DYN 09210 

0019 



QLOAOl ( I )=FORCE(NPI ) -QL0A01 ( I I 

DYN09220 

0020 



GO TO 20 

DYN09230 

0021 


10 

QLOAOl ( I 1 = QP1 (NPI > -QLOADI I I) +FORCEINPI ) +T 3M l* I FORC E l NPI +NEQT > - 

DYNC9240 




1 FORCEINPIH 

DYNC9250 

0022 


20 

CONTINUE 

DYNC9260 


C 



DYN09263 


Cl 


MULTIPLY STRUCTURAL MASS MATRIX BY DISPLACEMENT VECTOR 

DYNC 9265 

CO 2 3 



CALL MATMUT ( IH,QN,XP,QLOAD,NEQ) 

DYNC9280 

0024 



TDT2=2*DT2 

DYN09290 


C 



DYN09298 

002 5 



DO 40 1=1, NEO 

DYN09300 

0026 



NP I = N+ I 

DYN093 10 

0027 



IF ( IRSTRT.EQ.l) GO TO 30 

DYNC9320 

002 8 



QLOADI I )=6.*QLCAD( I H-DT 2*FQRCE ( NP I) ♦T0T2*0L OADl ( l J 

DYNC9330 

0029 



GO TO 40 

DYNC9340 

0030 


30 

QLOADI I )=6.*QL0A0I ! )+DT2*QP I NPI I +TDT2*QL0 ADI (I) +DT 2* 

DYN09350 




l (FORCEINPI )*T3*IFQRCE(NPI+NEQT)-F0RCEINPI ) ) > 

DYN09360 

0031 


40 

CONTINUE 

DYNC9370 


C 



DYN09373 


c 



DYN09378 

0032 



DO 50 1=1 ,NSI 2E 

DYN09380 

0033 



NNPI =NN+ I 

DYN09390 

0034 



XNINNPI )=0T2*XNINNPI)*6.*XP<NNPI) 

DYNC 9400 

003 5 


50 

CONTINUE 

DYNC 9410 


c 



DYNC 94 1 3 


Cl 


APPLY BOUNDARY CONDITIONS 

DYNC' 94 15 

0036 


60 

CALL NRESTR IKY) 

DYNC9430 


Cl 


SOLVING FOR Q 1 C SETTING UP TO SOLVE FOR INITIAL ACCELERATIONS 

0YN09432 

0037 



CALL SOL VE Q tIHI 

DYNC9450 


Cl 


HAVE DISPLACEMENTS BEEN OETERM INED// YES ( 90 ) 

DYN09452 

0038 



IF l IFLAG.EQ.il GO TO 90 

DYN09460 


Cl 


SAVE INITIAL DISPLACEMENTS 

DYN09462 


C 



DYNC9468 

0039 



DO 70 1=1, NEQ 

DYNC 947 0 

0040 



NP I =N+ I 

DYND9480 

0041 



QNINPI )=QLOADI I J 

DYN09490 

0042 



QLOAOi I >=QLOADlt I ) 

DYN09500 

0043 


70 

CONTINUE 

0YN09510 


c 



DYN09513 
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C 



DYN09518 

0044 



DO 80 1=1, NSI ZE 

DYNC9520 

0045 



NNPI =NN+ I 

DYNC9530 

0046 



X KEE P = XN { NNP I ) 

DYN09540 

0047 



XN(NNPI)=XPINNPI » 

DYN09550 

0048 



X P( NNPI )=XKEEP 

DYN09560 

0049 


80 

CONTINUE 

DYNC 9570 


C 



DYN09573 

00 50 



IFLAG=1 

DYN09590 

0051 



GO TO 60 

DYN09600 

0052 


90 

CONTINUE 

DYNC9610 


Cl 


CALCULATE Q-l 

DYN09612 


C 



DYN09628 

0053 



DO 100 1=1, NEQ 

DYNC9630 

0054 



NP I=N+ I 

DYN0964C* 

0055 



QN21NPI 1 =DT2*QL0AD{ I J *2*QN 1 ( NP I) -QNI NP I) 

DYN09650 

0056 


100 

CONTINUE 

DYN09660 


c 



DYN09663 


c 



DYN09668 

0057 



DO 110 I=1,NSIZE 

DYNC 967 0 

0058 



NNPI = NN+I 

DYN09680 

0059 



XKEE P= XN (NNP I ) 

DYN09690 

0060 



XNINNPI ) =XP I NNPI ) -4. *XN ( NN P I ) 

DYN09700 

0061 



XPINNPI ).= XKEEP 

DYN09710 

0C62 


110 

CONTINUE 

DYNC 9720 


c 



0YNC9723 


Cl 


APPLY BOUNDARY CONDITIONS TO LEFT-HAND- S I DE MATRIX 

DYN09725 

0063 



CALL NRESTR (KY) 

DYN09740 

0064 



RETURN 

DYNC9750 

0C6 5 



END 

DYN09760 


J-3.29 



J-3.30 


H0UBQ1 


HOUBQ1 
Functional 
l of 1 







C K0USQ1 


J 


PROCESS 

2 


j 

CALL 

KATHUT 



6 

1. 


PROCESS 


-s 

S' 

DONE 




15 

I 



j6/ 

\so 



13 

30 


PROCESS 


DONE 


HOUBQ1 J-3.31 



1.17 
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H0UBQ.1 

Detail 




YES 

10 

10 . 

QL0AD1 ( I] 

!*Q?1(N?1)-J 

slo rzni: 

[♦FOSCE'SPn 

+T3:<i* Iri 

)=.CE(li?i+ 

!<EQT)-F0RC£(N?1 ) 


QLOADJ (I )= 

FOSCE(NPI)- 

qLCADl(I) 
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PAGE 0001 


E ( INPUT) 


DESCRIPTION - TO PERFORM THE MAJOR INPUT FUNCTIONS FOR THE 

DYNASOR PROGRAM. IT READS ALL CASE CONTROL PARAMETERS 
AND ALL DATA CARD TYPES. SOME OATA REFINEMENT 
FUNCTIONS, SUCH AS CALCULATION OF THE TR IGONOMFTR IC 
INTEGRALS REQUIRED TO. CALCULATE THE GENERALIZED 
NONLINEAR LOADS, ARE PERFORMED. THE FOLLOWING 
QUANTITIES CAN BE READ IN - FOURIER HARMONICS, 

MASS ANO STIFFNESS MATRICES, NODAL RESTRAINTS, 

INITIAL CONDITIONS, SHELL STRUCTURAL DATA, THERMAL 
LOADS, THERMAL EXPANSION COEFFICIENTS, CONCENTRATED 
RING LOADS, TEMPERATURE DISTRIBUTIONS AND GRADIENTS. 


INPUT ARGUMENTS. 

KEY = FLAG GOVERNING 


=1) DATA INPUT FROM TAPE AND CARDS 
=*2) BYPASSING DATA INPUT DURING RESTART 
= 3) PERI 001 C OUTPUT OF RESTART CATA TO 
TAPE. 


OUTPUT ARGUMENTS. 
ALS 


= MATRIX OF COEFFICIENTS OF THERMAL EXPANSION IN THE 
MER I 01 ANAL DIRECTION FOR THE ELEMENTS. 

ALT = MATRIX OF COEFFICIENTS OF THERMAL EXPANSION IN THE 
CIRCUMFERENTIAL DIRECTION FOR THE ELEMENTS. 

COSM = MATRIX WHOSE ELEMENTS ARE THE COSINE OF PHI AT THE 
MIDDLE OF EACH ELEMENT. 

DTH = MATRIX OF FOURIER COEFFICIENTS FOR ThE CIRCUMFERENTIAL 
TEMPERATURE GRAOIENT DISTRIBUTION. 

FORCE = MATRIX OF GENERALIZED FORCES DUE TO EXTERNAL LOADS AND 
TEMPERATURES. 

LK = MATRIX INDICATING THE NODAL RESTRAINTS WHICH ARE APPLIED 

ON THE SHELL. 

NEQ = NUMBER OF EQUILIBRIUM EQUATIONS PER HARMONIC. 

NEQT = TOTAL NUMBER OF EQUILIBRIUM EQUATIONS FOR ALL HARMONICS. 

NHNS LENGTH OF STRUCTURAL STIFFNESS OR MASS MATRIX FOR ALL 

HARMONICS STORED IN VECTOR FORM. 

NNODES = TOTAL NUMBER OF NODES, EQUAL TO (NFLEMS + 1). 

NSIZE = THE NUMBER OF TERMS IN THE STRUCTURAL STIFFNESS OR MASS 
MATRIX (IN VECTOR FORM) FOR A PARTICULAR HARMONIC. 

QN = INITIAL NOOAL VELOCITIES. 

QNl = DISPLACEMENTS AT TIME INCREMENT (N-2) BEFORE STATEMENT 
AND AT TIME INCREMENT (N-l) AFTER STATEMENT 20. 

QP = Q - PARTIAL DERIVATIVE OF U-NL WITH RESPECT TO LOWER 

CASE 0 AT TIME STEP (N-l). 

QP 1 = Q - PARTIAL DERIVATIVE OF U-NL WITH RESPECT TO LOWER CASEDYNO 1002 

Q AT TIME STEP (N-2). DYN0100A 

SINM « SINE OF PHI AT THE MIDDLE OF THE ELEMENTS. DYN01006 


DYN00912 
DYNC091 A 
DYN0Q91 6 
DYN00918 
DYN00920 
DYN00922 
DYN0092A 
DYN00926 
DYN00928 
DYNCC93C 
DYN00932 
DYNC093A 
DYN0C936 
DYN00938 
DYN009A0 
DYNC09A2 
DYN009AA 
DYN009A6 
DYN009A8 
DYNCC950 
DYNP0952 
DYNC 095A 
DYN00956 
DYN00958 
DYNC0960 
DYNC 0962 
DYN0096 A 
DYNC0966 
DYNC0968 
DYN0097 0 
DYNC 0972 
DYNC097A 
DYN00976 
DYN0D978 
DYNCO980 
DYN00982 
DYN0C98A 
DYN0C986 
DYNC 0988 
DYN00990 
DYN00992 
10DYNC099A 
DYNC0996 
DYNC 0998 
DYN01000 
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C 

TH 

= MATRIX WHOSE ELEMENTS ARE THE FOURIER COEFFICIENTS 

DYN01008 


C 


OF THE CIRCUMFERENTIAL TEMPERATURE DISTRIBUTION. 

DYNP1010 


c 

TO 

= INITIAL TIME. 

DYN01012 


c 

T 1 

= STOP TIME. 

DYN01014 


c 



DYN01016 


c 

EXTERNALS. 


DYN01018 


c 

CALLED 

BY 

0YN01020 


c 


MAIN 

DYN01022 


c 


SETUP 

DYN01024 


c 

CALLS 


DYN 01026 


c 


TRI40R 

DYN01028 


c 


NLTERM 

DYNC 1030 


c 


FRCES 

DYN01032 


c 


THCOE 

DYN01034 


c 


TFORCE 

DYN01036 


c 



DYN01038 

0001 


SUBROUTINE INPUT (KEY) 

DYNC 1040 

0002 


IMPLICIT REAL *8 (A-H.O-Z) 

DYN01042 

0003 


COMMON 

/CHALS/ AL(167) ,CHECK(8,8) 

DYN01044 

0004 


COMMON 

/SLVEEQ/ XN(6550) ,QLOAO< 204) 

DYND1046 

0005 


COMMON 

/OS/ QN( 102C ) , QN1 ( 1020 ) , FORCE ( 2040 ) , QP( 1020) »QP1( 1020) , 

DYN01048 



1 

QN2 ( 1020 > 

DYN01050 

0006 


COMMGN 

/RSTRNT/ NODRES,NCL0SE,LK(204) 

DYN01052 

0007 


COMMON 

/CONST/ NH.NELEMS .NNODES ,NS I ZE , NPRNT Q , NEQ, NEQT , N , NN, NHNS , 

DYN01054 



1 

DT2,NPRNTL,NPRNTF,IDELF,IDC0E 

DYN01056 

0008 


COMMON 

/PS/ XP ( 6550 1 

DYN01058 

0009 


COMMON 

/TMFT/ TOTIME,DELTE,TIME,TO,Tl 

DYN01060 

0010 


COMMON 

/GEOM/ FNU1I5C) ,FNU2(50),E1(50),E2(50),G(50) ,T(50), 

DYN01062 



1 

SINE (51) .COSINE (51) , S I NM( 50 ) , COSM ( 50 ) , R ( 50 ) , PH( 50 ) , 

DYN01064 



1 

PHP(50) ,ARCL(50) 

DYN01066 

0011 


COMMON 

/THETAS/ THETA120) , NTHETA , NCL CST , NSTR SS 

DYNC 1068 

0012 


COMMON 

/PRINT/ I PRI NT ,N0 I T , LL 

DYN01070 

0013 


COMMON 

/HARM/ NHP 1 1 HARM! 5 ) 

DYN01C72 

0014 


COMMON 

/RESTRT / I RSTRT, NPRNT, NPRNIT, I TP, T I ME P , DELT EP 

DYN01074 

0015 


COMMON 

/THER/ T H ( 50 , 5 , 2 ) ,DTH(50,5,2) , AL S ( 50 ) , A LT ( 50 ) 

DYN01080 

0016 


COMMON 

/THCON/ ITELF, ITCOE.NPRNTH 

DYN01090 

0017 


COMMON 

/CYCLE/ ITAM 

DYN01100 

0018 


COMMON 

/TAPES/ NT ,ND, NS 

DYN01 110 

0019 


COMMON 

/R 1 / R0(51) , Z ( 5 1 ) 

DYN01 120 

002 0 


DIMENSION CGMENT(2C ) , JUNM20), TH1(5), DTHK5) 

DYNC1130 

0C21 


DIMENSION DU M ( 1 3 1 C 1 

DYN01140 

C022 


EQUIVALENCE ( DUM(l) ,XN( 1 ) ) f ( XN ( 1 ) , COMENT ( l > ) 

DYN01150 

002 3 


DOUBLE 

PRECISION CONSTN.CONSTF, CONST! 

DYN01160 

0024 


DATA CONSTN/8HCONSTANT/.CONSTI/8H / 

DYN0U70 


Cl 

KEY//H 10) .2(430) ,3(710) 

DYN01172 

002 5 


GO TO i 

110,430,710), KEY 

DYN01180 


Cl 

READ CASE I.D., CASE CONTROL, AND CIRCUMFERENTIAL ANGLE CARDS 

DYN0U82 

00 2 6 


10 CONTINUE 

DYN01190 
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0027 

0028 

002 9 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


0037 

0038 

0039 

0040 
C041 
0C42 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 


0054 

0055 

0056 

005 7 
0058 


IV G LEVEL 20 


INPUT 


DATE = 72353 11/03/29 


C2 
C 2 
C 

C2 


C 

C 2 


C 2 


Cl 


C2 


C 


C 


C2 

C 


c 


CONS TF =CONST 1 
WRITE (6,730) 

READ INPUT DATA FOR CARO TYPE II - A 
READ (NO, 740) NCARDS ,NT 
TYPE II-B CARDS LEFT//NOI30) 

IF (NCARDS. EQ. 01 GO TO 30 

DO 20 I =1 .NCARDS 

READ INPUT DATA FOR CARD TYPE II-B 
READ { ND , 750 ) (C OMENT ( J 1 , J =1 ,20 ) 

WRITE (6,800) (COM ENT (J ) ,J = 1,20) 

20 CONTINUE 

30 CONTINUE 

READ INPUT DATA FOR CARD TYPE III 

READ ( ND , 760 ) TOTI ME , DEL TE , IR STRT , I NCRST , NCLOS E , I TELF .NPRNTQ , 

1 IPRI NT.NCLCST.NSTRSS ,NPRNT , NPRN IT , NPR NTL ,NPRNTF , NPRNTH, 

1 NPRNMS 

READ INPUT DATA FOR CARO TYPE IV 

READ ( ND, 770) NTHE TA, ( THET A( I ) , I =1 , NTHE TA ) 

NOI T=1 

READ FOURIER HARMONICS CARD IF NO RESTART 

IF ( IRSTRT.EQ.O) READ (ND.780) NH, ( I HARM (I) , 1 = l ,NH) 

KEYRS=0 

IF ( IRSTRT.EQ.l) KEYRS=1 
40 CONTINUE 

READ INFORMATION AND SHELL DESCRIPTION FROM INPUT TAPE 


0YN01200 
DYN 012 10 
DYN01212 
DYN01230 
DYN01232 
DYN01240 
DYN01248 
DYN01250 
DYN01252 
DYN01270 
DYN01280 
DYN01282 
DYN01285 
D YN01290 
DYN01292 
DYN01320 
DYN01322 
DYN01330 
DYNO 1332 
DYN01340 
DYNO 1 3 50 
DYNO 1352 
DYNO 1 370 
DYNO 1380 
DYNO 1390 
DYN01400 
DYNO 1402 


REWIND NT 

READ (NT) NCARDS, JUNK 
IF {NCARDS. EQ. 0 ) GO TO 60 
WRITE (6,790) 

00 50 K=l, NCARDS 

READ ( NT I (COMENTt J) ,J=1,20) 

IF (KEYRS.EQ.l) GO TO 50 
WRITE (6,800) (C OMENT (J) , J= 1 , 20 ) 

50 CONTINUE 

60 READ (NT) NHP , NE LEMS , JUNK 
IF ( KEYRS.EQ.O) GO TO 110 
READ ADDITIONAL INFORMATION FROM INPUT 

DO 70 K = 1 » NELEMS 

READ (NT) (DUM(I) ,1=1,230) 

70 CONTINUE 

J=5*NELEMS 

READ (NT) (DUM( I ) ,1 = 1, J) 


DYN 0 1 440 
DYN01450 
DYN01460 
DYNO 1470 
DYNO 1478 
DYN01480 
DYN01490 
DYNO l 500 
DYNO 1 510 
DYNO l 520 
DYNO 152 3 
DYNO 1 530 
DYNO 1 540 

TAPE FOR RESTART OPERATION DYN01542 

DYNO 1578 
DYN01580 
DYNO 1590 
DYNO 1592 
DYNO 1 595 
DYN01600 
DYN01610 
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0059 

C 

00 90 K=1 »NELEMS 

OYNO 1618 
DYN01620 

0060 


IF < K.EQ.NELEMS1 GO TO 80 

DYN01630 

0061 


READ ( NT 1 ( DUM ( I) ,1=1*6) 

DYN01640 

0062 


GO TO 90 

DYN01650 

01 63 

80 

READ (NT) (DUMU1,I = 1,8) 

DYN01660 

00 64 

90 

CONTINUE 

DYN01670 

0065 

C 

J = 2*< NE LEMS+1 ) 

DYN01673 

DYN01680 

0066 


READ (NT ) ( DU M( l ) ,1 = 1, J) 

DYN01690 

0067 


J=2*NHP 

DYN01700 

0068 


NSIZE=10+26*NELEMS 

OYNO 1710 

0069 

C 

DO 100 K=1,J 

DYN01718 

DYN01720 

0070 


READ (NT) (DUM( I ) , I=1,NSIZE) 

OYNO 1 730 

0071 

100 

CONTINUE 

DYN01732 

0072 

c 

READ (NT) NH, ( IHARM( I ) ,1 =1,NH) , JUNK 

DYNO 1735 
DYN01740 

0073 


KEVRS=0 

DYNO 1750 

0074 


GO TO 40 

DYNO 1 7 60 

0075 

no 

CONTINUE 

DYNO 1770 

0076 


WRITE (6,810) TOTIME,OELTE, IPSTRT ,!NCRST ,NPRNT ,NPRNIT ,NPRNTQ» 

DYNO 1780 


i 

IPRINT.NCLCST.NSTRSS ,NPR NTL ,NPRNT F , NPRNTH, NT , NS , ND, 

DYN01790 


2 

NCLOSE, ITELF,NELFMS,NPRNMS,NH, ( (HARM ( I ) , 1 = 1 , NH ) 

DYN018C0 

0077 


WRITE (6,820) NTHETA, (THETAtl ),I=1,NTHETAI 

DYNO 1810 


C 

C2 

READ IN ONI INITIAL DISPLACEMENTS QO 

DYNO 1 820 
DYNO 1822 


C2C 

QN INITIAL VELOCITIES QODOT 

DYNO 1824 


C2C 

XN STIFFNESS MATRIX K 

DYNO 1826 


C 2C 

XP MASS MATRIX M 

DYN01828 


C2C 

FORCE LOADS 

DYNO l 830 


C2C 

NODRES NUMBER OF NODAL RESTRAINTS 

DYNO 1832 


C2C 

LK. LOCATION OF RESTRAINTS 

DYNO 1834 

0078 

C 

PI=3. 14159 

DYN01900 

DYN01910 

0079 


R A0= PI / 1 80. 

DYN01920 

0080 

C 

DO 120 1=1, NTHETA 

DYNO 1928 
0YN01930 

0081 


THETAl I ) =THET A( I ) *RAD 

DYNG1940 

0082 

120 

continue' 

DYN 01950 

00 83 

C 

NNODES=NE LEMS+1 

DYN01953 

DYN01960 

0084 


NE0=4*NNGDES 

DYN01970 

0085 


NEQT=NH*NEQ 

DYN01980 

0086 


NSIZE=10+26*NELEMS 

DYN01990 

0087 


NHNS=NH*NSIZE 

DYN02000 

0088 


DT2=DELTE**2 

DYN02010 


c 


DYN02018 
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0089 


DO 130 I = 1 » N£ QT 

DYN02020 

0090 


QN< I >=0.0 

DYN02030 

0091 


ONI 1 1 ) =0.0 

DYN02040 

0092 

130 

CONTINUE 

DYN02050 


C 


DYN02053 


Cl 

RESTART //YES( 250) 

DYN02055 

0093 


IF l IRSTRT.EQ.l) GO TO 250 

DYN02060 


Cl 

READ NODAL RESTRAINT AND INITIAL CONDITIONS CARDS. 

DYN02062 


c 

READ INPUT DATA FOR CARD TYPE VI - A 

DYN02100 

0094 


READ ( ND , 780 ) NODRFS 

DYN02110 

009 5 


WRITE (6,830) NODRES 

DYN02120 

0096 


IF (NODRES. EQ.O) GO TO 150 

DYN02130 


c 


DYN021 38 

0097 


DO 140 1=1, NODRES 

DYN02140 


c 

READ INPUT DATA FOR CARD TYPE VI - B 

DYNC2150 

0098 


READ (ND.780) NP.NOIRCT 

DYN02160 

OC 99 


WRITE (6,840) NP.NOIRCT 

DYN02170 

0100 


L K ( I )=4*(NP-1)+N0IRCT 

DYN02180 

0101 

140 

CONTINUE 

DYN02182 


c 


DYN02185 

0102 

150 

LK( NQDRE S + 1 ) = 3 

DYN02190 

0103 


LK(N0DRES+2 J=4 

DYN02200 


C2 

RE AO AND PRINT INITIAL VELOCITIES AND DISPLACEMENTS 

DYN02202 


C 

READ INPUT DATA FOR CARO TYPE VII - A 

DYN02240 

0104 


READ (ND.780) IQN.I0N1 

DYN02250 

0105 


IF ( IQN.EQ.GI GO TO 190 

0YN02260 


c 


DYN02268 

0106 


DO 180 IH= 1 , NH 

DYN 02270 

0107 


N=NEQ*( I H— 1 ) 

DYN02280 


C2 

READ INPUT DATA FOR CARD TYPE VII - B 

DYN02282 

0108 

160 

READ (NO, 850) INI , l N2 , Q1 ,Q 2 ,03 , Q4 

DYN02300 


C 


DYN02308 

0109 


DO 170 I NOOE= I N1 , I N2 

DYN02310 

0110 


IFLAG=4*( INODE-D+N 

DYN02320 

0111 


QN ( I FLAG* l ) =Q1 

DYN02330 

0112 


ON ( I F LAG+ 2 ) =Q2 

DYN02340 

0113 


QN( I F LAG* 3 ) =03 

DYN02350 

0114 


QN( I FLAG+4 ) =04 

DYN02360 

0115 

170 

CONTINUE 

DYN02362 


C 


DYN02365 

0116 


IF ( IN2.NE.NN0DES) GO TO 160 

DYN02370 

0117 

180 

CONTINUE 

DYN02380 


C 


DYN02383 

0118 

190 

CONTINUE 

DYN02390 

0119 


IF ( IQNl.EQ.C) GO TO 230 

DYN02400 


C 


DYN02408 

0120 


DO 220 I H= 1 , NH 

DYN 024 10 

0121 


N=NEQ*( IH-1) 

DYN02420 
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C 2 

READ INPUT DATA FOR CARO TYPE VII - C 

0YN02422 

0122 


200 

READ ( ND , 8 50 ) I N 1 , 1 N2 , Q1 ,Q2 , <33 , Q4 

DYN02440 


C 



DYN02448 

0123 



DO 210 IN0DE=IN1,IN2 

DYN02450 

0124 



IFLAG=4*( INODE-ll+N 

DYN02460 

0125 



ONI ( I FLAG* 1 ) = Q1 

0YN02470 

0126 



QN1( I FL AG+ 2 ) = Q2 

DYN02480 

0127 



QN1 ( IFLAG«-3) = Q3 

DYN02490 

0128 



QN1( IFLAG*4)=Q4 

DYN02500 

0129 


210 

CONTINUE 

DYN02502 


C 



DYN02505 

0130 



IF ( IN2.NE.NN00ES) GO TO 200 

DYN02510 

0131 


220 

CONTINUE 

DYN02520 


C 



DYN02523 

0132 


230 

CONTINUE 

DYN02530 

0133 



WRITE (6,860) 

DYN02540 


c 



DYN02548 

0134 



DO 240 1=1 ,NH 

DYN02550 

0135 



I G=NEO* { I— 1 ) 

DYN02560 


c 



DYN02568 

0136 



DO 240 11 = 1, NNGOE S 

DYN02570 

0137 



ix=4*m-n 

DYN02580 

0138 



WRITE (6,870) II, I HARM ( I ) , QN( IQ+IX+1),QN( IQ+IX*2) , 

DYN0259C 



1 

QNdQ+IX+3) ,QN( IQ*IX«-4),QN1( 1 0* I X* 1 ) , QN1 ( 1 0* I X*2) , 

DYN02600 



l 

QNVI IQ* IX* 3) ,QN1 ( I Q* I X*4 ) 

DYN02601 

0139 


240 

CONTINUF 

DYN02610 


c 



DYN02613 

0140 


250 

CONTINUE 

DYN02620 

0141 



REWIND NS 

DYN02630 


02 


READ STRUCTURAL DATA FOR SHELL 

DYN02632 


C 



DYN02638 

0142 



DO 260 II=1,NELEMS 

DYN02640 

0143 



READ (NT) ( (CHECK! I , J) , 1=1 ,8) ,J=l ,8) , ( AL( I ) , 1=1, 166) 

DYN02650 

0144 



WRITE (NS) ( (CHECK! I, J) , 1=1,8) ,J=1, 8) , ( AL ( I ), 1=1, 166) 

DYN02660 

0145 


260 

CONTINUE 

DYN02670 


C 



DYNC2673 

0146 



RE AO (NT) ( FNU1 ( I ) » I =1 » NELEMS ) , ( FNU2 ( I ) » 1 = 1 » NFLEMS > , ( E 1 ( I ) » I = l» 

DYN02680 



l 

NELEMS) , (E 2(1) , 1 = 1, NELEMS) , (G( I ) , I = 1 , NELEMS > , ( T (I ) , 1 = 1, 

DYN02690 



1 

NELEMS) 

DYN02692 


C 



DYN02698 

0147 



DO 280 1=1, NELEMS 

DYN02700 

0148 



IF ( I ,EQ. NELEMS) GO TO 270 

DYN02710 

0149 



READ (NT) R l I ) , PH( 1 ) , PHP( I ) , ARCL ( I ) , S INE ( l ) , COS INE ( 1 ) 

DYN02720 

0150 



GO TO 280 

DYN02730 

0151 


270 

READ (NT) R(I),PH(1),PHP(I),ARCL( I ) , S I NE ( I ) , COS INE ( I ) , 

DYN02740 



1 

SINEd + l) , COSINE! I ♦ 1 » 

DYN02750 

0152 


280 

CONTINUE 

DYN02760 


c 



DYN02763 
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01 53 


READ (NT) (RO ( I ) , 1 = 1 , NNODE S),IZ(I)»I=1» NNODE S ) 

DYN02770 


C 


DYNO-2778 

0154 


DO 290 I = 1 »NE LE MS 

0YN02780 

0155 


COSM( I ) =DCOS ( PH( I ) ) 

DYN02790 

0156 


S INM ( I ) =DS I N ( PH ( I ) ) 

DYN02800 

0157 

290 

CONTINUE 

0YN02810 


C 1 

INCLUDE THERMAL LOADS//NO ( 320 ) 

DYN02815 


C 


DYN02817 

0158 


IF ( ITELF.NE .1) GO TO 320 

DYN02820 


Cl 

READ COEFFICIENTS OF THERMAL EXPANSION CARDS 

DYN02822 


C 2 

READ INPUT DATA FOR CARD TYPE VIII 

DYN02824 

0159 

300 

REAO ( N D f 8 8 0 ) I E LM1 , 1 ELM2 , ALS 1 1 , ALT 1 1 

DYN02870 


C 


DYN02878 

0160 


DO 310 IELM=I£LM1,IELM2 

DYN02880 

0161 


ALS( IELM) =ALS 1 1 

DYN02890 

0162 


A LT ( IELM) =ALT 1 1 

DYN02900 

0163 

310 

CONTINUE 

DYN02902 


C 


DYN02905 

0164 


IF ( IELM2.NE.NELEMSI GO TO 300 

DYN02910 

0165 


GO TO 340 

DYN02920 


c 


DYN02928 

0166 

320 

DO 330 I ELM=1 f NELEMS 

DYN0293C 

0167 


A LS ( IELM) =0.0 

DYN 02940 

0168 


A LT ( IELM) =0.0 

DYN02950 

0169 

330 

CONTINUE 

DYN02960 


C 


DYN02963 

0170 

340 

CONTINUE 

DYN02970 


C 2 

PRINT ELEMENT PROPERTIES ANO DESIRED STIFFNESS AND MASS MATRICES 

DYN02972 

0171 


WRITE (6,890) 

DYN03010 

0172 


WRITE ( 6, 900) ( I , AL S 1 I ) , ALT ( I ),F1( I) ,E2(I),FNU1(I ) ,FNU2 ( I ) ,G( I ), 

DYNC 3020 


] 

L R ( I I ,T{ I ) ,ARCL( I ) ,PH( I 1 ,PHP( I ) , 1 = 1 .NELEMS) 

DYN03030 


C 


DYN03038 

0173 


DO 370 I H= 1 , NHP 

DYN03040 


c 


DYN03048 

0174 


DO 350 JH= 1 , NH 

DYN03050 

0175 


IF ( IH-l.EQ. IHARM(JH) ) GO TO 360 

DYN03C 60 

0176 

350 

CONTINUE 

DYN 030 70 


C 


DYN03073 

0177 


READ (NT) (FORCEU J,I = i,NSIZE) 

DYN03080 

0178 


READ (NT) (FORCE(I ),I=l,NSIZE> 

DYN03090 

0179 


GO TO 370 

DYN03100 

0180 

360 

CONTINUE 

DYN03110 

0181 


NN=NS! ZEM JH-i ) 

DYNC 3 120 

0182 


REAO (NT) IXNd+NN), I = 1,NSIZE» 

DYN 03 1 30 

0183 


READ (NT) (XP(I+NN)»I=1,NSIZE) 

DYN03140 

0184 


IF ( NPRNMS.EQ.O) GO TO 370 

DYN03150 

0185 


WRITE (6,910 IHARM(JH) 

DYN03160 

0186 


WRITE (6,920) ( XN( H-NN ) , 1= 1 ,NS I Z E ) 

DYN03170 
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0187 


WRITE (6,930) I HARM ( JH ) 

DYN03180 

0188 


WRITE (6,920) ( X P( I +NN ) ,I=1,NSI2E) 

DYN0'3190 

0189 

370 

CONTINUE 

DYN03200 


C 


DYN03203 


Cl 

CALCULATE TRIGONOMETRIC INTEGRALS REQUIRED TO CALCULATE 

DYN03205 


C1C 

GENERALIZED NONLINEAR LOADS 

DYNC32C7 

0190 


CALL TRI40R 

DYN03210 


Cl 

RESTART//N0(400) 

DYN03212 

0191 


IF ( IRSTRT.EQ.O) GO TO 400 

DYN 0 3220 


Cl 

READ AND CALCULATE INFORMATION REQUIRED FOR RESTART OPERATION 

DYNC3222 

0192 


NTF=2*NEQT 

DYN03260 

0193 

380 

READ (NT) NH,(IHARM(!) , 1=1, NH), JUNK 

DYN03270 

0194 


READ (NT) ITP,T IMEP,DELTEP,T0,T1 .NODRFS, (LK( I ) , I=1,N0DRES> , 

DYN03280 



1 (F0RCE(I)»I=1,NTF) 

DYN03290 

0195 


READ (NT) ( ( (TH( IELM, IH, IBP1) , IELM=1 .NELEMS) , I H= 1 , NH) , I BP 1= 1 , 2 ) , 

DYN03300 



1 ( ( ( DTH ( I ELM, IH, I BP1) , I ELM=1, NELEMS ) , IH=1,NH) , I BP 1=1 ,2) 

DYN03310 

0196 


READ (NT) ( QP1( I ) ,1 = 1 ,NEQT) ,( QN( I ) , I = 1,NEQT ) , (QN1 ( I > , I=l,NEQT) 

DYN03320 

0197 


LMNODRES + 1 1=3 

DYN03330 

0198 


LK(NCDRES+2)=4 

DYN03340 

0199 


IF ( ITP.NE. INCRST) GO TO 380 

DYN03350 


Cl 

CALCULATE NONLINEAR LOAOS AND STRESS RESULTANTS FOR EACH ELEMENT 

DYN03352 

0200 


CALL NLTFRM (0) 

DYN03360 


C 


DYN03368 

0201 


DO 390 1 = 1 ,NEQT 

DYN03370 

0202 


XKEE P=QN ( I ) 

DYN03380 

0203 


QN( I )=QN1(I) 

DYN03390 

0204 


QN1( I)=XKEEP 

DYN03400 

0205 


XKEE P = QP1 ( I ) 

DYN03410 

02 C 6 


QP1 ( I ) =QP( I) 

DYNC 3420 

0207 


QP ( I ) =QP ( I )♦ ( DEL TE /DEL TEP)*(OP(I)-XKEEP) 

DYNC3430 

0208 

390 

CONTINUE 

DYN03432 


C 


DYN03435 


C 

QP - GENERALIZED FORCES AT N+l TH INCREMENT 

DYN03450 


C 

QP1 - GENERALIZED FORCES AT N TH INCREMENT 

DYN03460 


C 

QN - GENERALIZED NODAL VELOCITIES AT N TH INCREMENT 

DYN03470 


C 

QN1 - GENERALIZED NODAL DISP. AT N TH INCREMENT 

DYNC3480 


c 


DYN03482 

02 09 


TPRNT=TIMEP*10COOCO. 

DYN03500 

0210 


WRITE (6,940) l TP, TPRNT, OELTEP 

DYN03510 

0211 


RETURN 

DYN03520 

0212 

400 

CONTINUE 

DYN035 30 


C 2 

INITIALIZE FORCE AND THERMAL MATRICES 

OYN03532 


C 


DYN03568 

0213 


DO 410 I=i,NEQT 

DYN03570 

0214 


F ORCE ( I ) =0 .0 

DYN03580 

0215 


FORCE ( I +NEQT ) =0 .0 

DYN03590 

0216 

410 

CONTINUE 

DYN 03600 


C 


DYN03603 
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C 



DYN03608 

0217 



DO 420 I = 1 »NE LEMS 

DYN0-3610 


c 



DYN03618 

021 8 



00 420 J=1,NH 

DYN03620 

0219 



TH( I , J, 1) =0.0 

DYN03630 

0220 



TH< I , J,2) =0.0 

DYN03640 

0221 



DTH( I ,J, 11=0.0 

DYN03650 

0222 



DTH( I, J, 21=0.0 

DYN03660 

0223 


420 

CONTINUE 

DYN03670 


c 



DYN03673 


Cl 


FIRST TIME THROUGH AND CONSTANT FORCES//NOI 440 1 

DYN03675 

0224 


430 

IF ICONSTF.EQ.CONSTN.AND.KEY.NE.il GO TO 440 

DYN0371 0 

0225 



GO TO 470 

DYN03720 


Cl 


UPDATE FORCE AND THERMAL MATRICES 

DYN03722 


c 



DYN03728 

0226 


440 

DO 450 I = 1 » NE QT 

DYN03730 

0227 



FORC E( I 1 =F ORCE ( I*NEQT 1 

DYN03740 

0228 


450 

CONTINUE 

DYN03742 


c 



DYN03745 


c 



DYN03748 

0229 



DO 460 1=1 .NELEMS 

DYN03750 


c 



DYN03758 

0230 



DO 460 J=1 »NH 

DYN03760 

0231 



TH < I , J . 1 1 =TH( I > J > 2) 

DYN03770 

0232 



DTH< I * J * 1 1 =DTH ( I , J , 2 1 

DYN03780 

0233 


460 

CONTINUE 

DYN03782 


c 



DYNC3785 

0234 



T0=T1 

DYN03790 

0235 



T1 =TOTI ME 

DYN03800 

0236 



RETURN 

DYN03810 

0237 


470 

CONTINUE 

DYN03820 


c 



DYN03828 

0238 



DO 480 I =1 , NEQT 

DYN03830 

02 3 9 



FORCE! I >=FORCE! I+NEQT1 

DYN03840 

0240 



F ORC E 1 I +NEQT 1=0.0 

DYN03850 

0241 


480 

CONTINUE 

DYN03860 


c 



DYN03863 


c 



DYN03868 

0242 



DO 490 1=1 .NELEMS 

DYN03870 


c 



DYN03878 

0243 



DO 490 J=1 ,NH 

DYN03880 

0244 



THU ,J f 11 =TH( I,J,21 

DYN03890 

C245 



DTHU.J.ll =DTH( I , J , 21 

DYN03900 

0246 



THU, J, 21=0.0 

DYN039 10 

G24 7 



DTH! I ,J, 21=0.0 

DYN 03920 

0248 


490 

CONTINUE 

DYN03930 


c 



DYN03933 

0249 



I B=0 

DYN03940 
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02 50 


IF (KEY.EQ.2) I B= 1 

DYN03950 

0251 


IF (I8.E0.1) T0=T1 

DYN 0-3960 


Cl 

READ LOAD CONTROL CARD 

DYN03962 

02 52 

500 

READ I ND * 950 ) T 1 , NCF, IDELF , I D COE , I TCOE , CONST F 

D YN03980 

0253 


TIM=T1 

DYN03990 

02 54 


IF ( CONST F. EQ.CONSTN.AND. I8.EQ.0) T1=T0T IME 

DYN04000 

0255 


IF (NPRNTL.EQ.O.ANO.NPRNTF.EO.O) GO TO 510 

DYN040 10 


C 2 

PRINT LOADING DESCRIPTION 

DYN04012 

0256 


TPRNT=TIM*1000000. 

DYN04050 

0257 


WRITE (6,9601 TPRNT.CONSTF 

DYN04060 


Cl 

CONCENTRATED RING LOADS// N0< 5 50 ) 

D YN04062 

0258 

510 

IF (NCF.EQ.O) GO TO 550 

OYN04070 


Cl 

READ CONCENTRATED RING LOADS 

DYN04072 


C 


DYN04078 

0259 


DO 540 I H = l , NH 

DYN04080 

0260 


I HI = I H— 1 

DYN 040 90 


c 

READ INPUT DATA FOR CARD TYPE IX - 8 - 1 

DYN04100 

0261 


READ ( ND ,970 ) NCF1 

DYNC4110 

0262 


IF (NCF1.EQ.0I GO TO 540 

DYN04120 

0263 


IF ( NPRNTL.EQ.O) GO TO 520 

DYN041 30 

0264 


WRITE (6,9801 I HARM ( I H ) 

DYNC4140 


c 

READ INPUT OATA FOR CARD TYPE IX - B - 2 

DYN04150 

0265 

520 

READ ( ND ,970 I IN 1 , I N2 , F 1 ,F 2 , F3 , F4 

DYN041 60 


C 


DYN04168 

0266 


00 530 I N= I N1 , I N2 

DYN04170 

0267 


k=**in+neq*ihimb*neqt 

DYN04180 

0268 


FORCE! K-3 ) =F1 

DYN04190 

0269 


F QKCE ( K-2 1 =F2 

DYN04200 

0270 


F ORC E ( K-i ) =F3 

DYN04210 

0271 


F0RCE(K)=F4 

DYN04220 

0272 


IF (NPRNTL.EQ.l) WRITE (6,9901 I N, F 1 , F 2 , F3 , F4 

DYN04230 

02 73 

530 

CONTINUE 

DYNC4240 


C 


DYN04243 

0274 


IF ( IN2.NE .NNODESI GO TO 520 

DYN04250 

0275 

540 

CONTINUE 

DYN04260 


C 


DYN04263 

0276 

550 

CONTINUE 

DYNC4270 


Cl 

DISTRIBUTED LOADS PRE SENT/ /NO ( 57C 1 

DYN04272 

0277 


IF ( IDELF. NE. 11 GO TO 570 

DYNC4280 

0278 


REWIND NS 

DYNC4290 


Cl DO 

PROCESS ALL ELEMENTS 

DYN04292 


C 


DYN04298 

0279 


DO 560 IELM=l .NELEMS 

DYM04300 

0280 


READ j NS 1 ( (CHECMI ,J> , 1 = 1 ,81 ,J = l,8) , (AL( I) , 1 = 1,166) 

DYN04310 


Cl 

read Distributed loads and calculate linear generalized 

FORCES DYN04312 

0281 


CALL FRCES ( I ELM , A LPHK , I B) 

DYN 04320 

0282 

560 

CONTINUE 

DYNC4330 


C 


DYN04333 
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Cl 

THERMAL LOADS P RE SE NT//NO < 650 ) 

DYN04335 

0283 

570 

IF ( ITELF.EQ.O) GO TO 650 

DYNC4340 

02 84 


REWIND NS 

DYNC4380 

0285 


I8P1=I8+1 

DYN04390 


Cl 

READ THERMAL COE F 1C I ENTS//NO< 600 ) 

DYN04392 

0286 


IF ( ITCOE.EQ.O) GO TO 600 

0YN0'4400 


Cl 

READ TEMPERATURE DISTRIBUTIONS AND GRADIENTS 

DYN04402 

0287 

580 

C 

READ (ND.1000) l CL Ml f I EL M2 , 1 T HI (I H 1 , DTH1 { I H) , I H=1 , NH ) 

0YN04420 
DYN0442 8 

0288 

C 

DO 590 I E LM=I ELM 1 , 1 ELM2 

DYN04430 

DYN04438 

02 89 


DO 590 lH=i,NH 

DYN 04440 

0290 


DTH( IELM,IH,IBP1)=0TH1< IH) 

DYNf 4450 

0291 


T H ( IELM.IH, IBP1)=TH1UH) 

DYN04460 

0292 

590 

C 

CONTINUE 

DYN04462 

DYNC4465 

0293 


IF ( IELM2.NE.NELEMS) GO TO 580 

DYN04470 


Cl DO 
C 

PROCESS ALL ELEMENTS 

DYN04472 

DYN04478 

0294 

600 

DO 620 I ELM=1 .NELEMS 

DYN04480 

0295 


READ (NS) ( (CHECK(I ,J) , 1=1 ,8) ,J=l,8), ( AL ( I >, 1=1,166) 

D YN04490 


Cl 

CALCULATE THERMAL COEFF IC I ENTS/ /N0< 610 ) 

DYN04492 

0296 


IF ( ITCOE.EQ.l) GO TO 610 

DYN04500 


Cl 

READS TEMPERATURE ANO TEMPERATURE GRADIENTS AND CALCULATES 

DYN04502 


C 1C 

THERMAL FOURIER COEFFICIENTS 

DYN04504 

0297 


CALL THCOE ( I ELM , I B ) 

DYN04510 


Cl 

CALCULATES LINEAR THERMAL LOADS 

DYN04512 

0298 

610 

CALL TFQRCE UELM.IBI 

DYN04520 

0299 

620 

C 

CONTINUE 

DYNC4530 

DYN04533 

0300 

C 

IF ( NPRNTH.EQ.OI GO TO 640 

DYN04540 

DYN04548 

0301 


DO 630 I H= 1 t NH 

DYNC4550 

0302 

c 

WRITE (6,1010) IHARM(IH) 

DYN04560 

DYN04568 

0303 


DO 630 IELM=1,NELEMS 

DYN04570 

0304 


WRITE ( 6,10201 IELM.THI IELM.IH, IBP1),DTH( IELM.IH, IBP1 ) 

DYN045 80 

0305 

630 

C 

CONTINUE 

DYN045 82 
DYN04585 

0306 

640 

CONTINUE 

DYN04590 

0307 

650 

IF (NPRNTF.EQ.O) GO TO 670 

0YN04600 


C 2 
C 

PRINT GENERALIZED FORCES FOR EACH HARMONIC 

DYN0A602 

DYN04638 

0308 


DO 660 l H= l , NH 

DYN04640 

0309 


KK=NEQ*< IH-1 )«-IB*NEQT 

DYN04650 

0310 


K YP= IHARM( IH) 

DYN04660 

0311 

C 

WRITE (6,1030) KYP 

DYN04670 

DYN04678 
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0312 


00 660 I =1 iNNODES 

0YN04680 

0313 


K=KK*4# { I -1 ) 

DYN0’4690 

0314 


WRITE (6,1040) I»F0RCE(K+1) , FORCE (K +2 > , FORC E ( K+ 3 1 , FORC E ( K + 4) DYN04700 

0315 

660 

CONTINUE 

DYN04702 


C 


DYN04705 

031 6 

670 

CONTINUE 

DYN04710 


Cl 

FORCES NOT CONSTANT OR FIRST TIME THROUGH WITH KEY= 2/ /YE S ( 700 ) 

DYN04712 

0317 


IF (CONSTF.NE.CONSTN.OR.IB.EQ.l) GO TO 7 OC 

DYN04720 


C 


DYN04728 

0318 


00 680 1=1 ,NEQT 

DYN04730 

0319 


F0RCE< I*NEQT)=FORCE( I) 

DYN04740 

0320 

680 

CONTINUE 

DYN04742 


. C 


DYN04745 


C 


DYN04748 

0321 


DO 690 1=1 .NELEMS 

DYN( 4750 


C 


DYN04758 

0322 


DO 690 J=1 ,NH 

DYN04760 

0323 


TH< I , J ♦ 2) =TH( I , J , 1 ) 

DYN04770 

0324 


DTH( I *J,2)=0TH( I , J , 1 ) 

DYN04780 

032 5 

690 

CONTINUE 

DYN04790 


C 


DYN04793 

0326 


RETURN 

DYNC4300 

0327 

700 

CONTINUE 

DYN04810 

0328 


IB=I B+i 

DYN04820 


Cl 

KEY = 1 // YE S ( 500 ) 

DYN04822 

0329 


IF (IB. EO. 1) GO TO 500 

DYN04830 

0330 


RETURN 

DYNC4840 


Cl 

WRITE RESTART INFORMATION ON TAPE 

DYN04842 

0331 

710 

CONTINUE 

DYNI 4880 

0332 


NTF=2*NEQT 

DYNC4890 

0333 


WRITE (NT) NH,( IHARM( I ) ,I=1,NH) ,JUNK 

D YN04900 

0334 


WRITE (NT) ITAM,TIMF,DELTE,TC ,T1 .NODRES, (LK( I >, I=1,N0DRES), 

DYN04910 


l 

( FORCE ( I ) , 1=1, NTF) 

DYN04920 

0335 


WRITE (NT) ( ( (TH< I ELM, I H, I BP l ) , I ELM= 1 , NELEMS ) , I H= 1 , NH ) , I BP 1 = 1 , 2 ) , 

DYN04930 


1 

( < ( DTH< IELM, IH, IBP1 ) , IELM=1 ,NELFMS) , IH=1,NH) , I BP 1=1, 2) 

DYNC4940 

0336 


QDC3=1.0/(2.0*DELTE> 

DYNC4950 

0337 


QDC 2 =4. 0*QDC 3 

DYNC4960 

0338 


QDCl=3.0*QDC3 

DYNC4970 


C 


DYN04978 

0339 


DO 720 I =1 , NEQT 

DYN04980 

0340 


QP ( I )=QDC1*QN( l ) -QDC2 WQN1 ( I ) <-QDC3 WQN2 ( I ) 

DYN04990 

G341 

720 

CONTINUE 

DYN04992 


C 


0YN04995 

0342 


WRITE (NT) (QPKI), 1 = 1, NEQT), (QN(I), 1 = 1, NEQT), (QP(I>, 1 = 1, NEQT) 

DYN05000 

0343 


TPRNT=TIME*100C0C0. 

DYN05010 

0344 


WRITE (6,1050) ITAM.TPRNT 

DYN05020 

0345 


RETURN 

DYN05030 


DYN05040 


C 
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0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 


0355 

0356 


0357 

0358 

0359 


0360 

0361 

0362 


0363 

0364 

0365 


730 FORMAT 
1 

740 FORMAT 
750 FORMAT 
760 FURMAT 
770 FORMAT 
780 FORMAT 
790 FORMAT 
800 FORMAT 
810 FORMAT 
1 

1 • 

2 

2 

3 

3 

4 

4 

5 

5 

6 
6 

820 FORMAT 
830 FORMAT 
1 
1 
2 
2 

3 

4 

840 FORMAT 
850 FORMAT 
860 FORMAT 
1 
1 
2 

870 FORMAT 
880 FORMAT 
890 FORMAT 
1 
1 
2 

900 FORMAT 
910 FORMAT 
1 

920 FORMAT 
1 
1 


( 1H1 ,38X,44HOYNASOR-II - DYNAMIC NONLINEAR ANALYSIS OF, 
21H SHELLS OF REVOLUTION//! 

(215) 

( 20A4 ) 

(2F10. 0,415,/, 101 5) 

( I 5 ,/ , ( 8F 10.0 ) ) 

( 161 5) 

(///,2X,46H**SHELL IDENTIFICATION COMMENTS FROM SAMMSOR**) 
(/5X.20A4) 

< 1H1 ,50X,33HC0NTR0L CONSTANTS AND COMMENTS/// 

35X, 8HT0TIME = , F 1 2 . 9 , 22X , 7HDELT F =,F13.9/ 

35 X, 8H l RSTRT = , l 1 2 ,22 X , 8H I NC RST =,112/ 

3 5 X , 7HNPRN T = , I 1 3 ,22 X , 8HNPRNI T =,112/ 

3 5X , 8HNPRNTQ = , I 12 , 22X , 8H I P RI NT =,112/ 

3 5X, 8HNCLC ST = , ! 1 2 , 22X , 8HNS TRSS =,112/ 

35X.8HNPRNTL = , I 12 ,22 X , 8HNPRNTF =,112/ 

35X, 8HNPRNTH =,I 1 2 , 2 2X , 4HNT =,116/ 

35X.4MNS =,I16,22X , 4HN0 =,116,/ 

35X, 8HNCL0SE = , I 1 2 ,2 2 X , 7HI T ELF =,113/ 

35 X , 8HNELE MS = , I 12 ,22X .8HNPRNMS =,112/ 

35X.4HNH =,116/ 

35X.7HIHARM =,5111//) 

( 35X , 8HNTHE T A = , I 1 2 ,/3 5X , 7HTHET A =, 5F 10 . 2, ( / , 42X , 5F 1 0. 2 ) ) 
(/////50X.29HNUM8ER OF NODAL RESTRAINTS ISI5// 
52X,9HDIRECTI0N,12X,7HAPPLIES,// 

57X, 1H1 ,iOX,15HAXIAL RESTRAINT/ 

57X, IH2 , 10X.20HTANGENTIAL RESTRAINT ,/ , 

57X, 1H3,10X,16HRADIAL RESTRAINT/ 

57X, 1H4, 10 X,17H ANGULAR RESTRAINT,// 

58 X , 1 5HNG0E DIPECTION/J 
(58X,I3,7X,I1) 

<2I5,4F10.C> 

C 1H1 , 7X,7HINITIAL,29X,10HVEL0CITIES, 2 2X , 3HAND , 19X , 

1 3 HD I S PL AC EM ENTS// 

4X» l 4HN0DE HARMONIC ,2(30H AXIAL TANGENTIAL 

26H RADIAL ANGULAR )//) 

( 5X , I 2 ,6X, 12 ,3X, 8D14.4 ) 

<2I5,2F10.C) 

(1H1 ,45X,41HELEMENT ELASTIC AND GEOMETRIC PROPERTIES,/// 
48H ELEMENT ALPHA — S ALPHA — T El E2 , 

11H FNU1 FNU2,7X,1HG,11X,1HR,11X,1HT,9X,4HARCL,9X,2HPH, 
10 X , 3HPHP// ) 

(3X,12,2X,4D10.2,2F6.3,6012.4) 

( 1H1,38X,15HHARM0NIC NUMPER,I5, 

37H HAS THE FOLLOWING STIFFNESS MATRIX//) 
(?X,D16.8,/,2X,2D16.8,/,2X,3016.8,/,2X,4D16.8,/,2X,5D16.8, 
2X,6016.8,/,2X,7D16.8,/,2X,8D16.8,/ 
(2X,5D16.8,/2X,6D16.8/2X,7016.8/2X,8D16.8/)) 


DYNC5050 
DYN06C60 
DYN05070 
DYN05C80 
DYN05090 
DYN05100 
DYN051 10 
DYN05120 
DYN05130 
DYN05140 
DYN05142 
DYNC 5144 
DYN05146 
DYN05148 
DYN05150 
DYN05152 
DYN05154 
DYNC 5156 
DYN05158 
DYN05160 
DYN05162 
DYN05164 
DYNC 52 10 
DYN05220 
DYN05222 
DYN05230 
DYN05232 
DYN05240 
DYN05242 
DYN05250 
DYN 05260 
DYN05270 
DYN05280 
DYN05290 
, DYNC 5300 
0YNO5310 
DYN05320 
DYN05330 
DYN05340 
DYN05342 
DYN05350 
DYN05360 
DYN05370 
DYNC 5380 
DYN05390 
/DYN05400 
DYN05410 
DYNC5420 
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930 FORMAT < 1H1 f 3 8 X , 1 5HHARM0N I C NUMBER, 15, DYN05430 

1 32H HAS THE FOLLOWING MASS MATRIX//) DYN05440 

940 FORMAT ( 1H 1// // / /5 X ,4 1HTH I S SOLUTION STARTS AFTER TIME INCREMENT, OYN05450 
1 4H NO. , I 5, 1 9H WHERE THE TIME WAS ,F 1 2. 4, 13H MICROSECONDS, /DYN05460 

1 5 X, 2 7H AND THE TIME INCREMENT W A S , D 1 2 . 5///// / ) DYN05470 

950 FORMAT ( F10.0 ,4 I 5, A8 ) DYNC-5480 

960 FORMAT (40H1F0L LOWING IS LOAD DESCRIPTION AT TIME =,F12.4, DYN05490 

1 13H MICROSECONDS, 5X,AB) DYN055C0 

970 FORMAT I2I5.4F10.0) DYN05510 

980 FORMAT I / / /20X .30HC0NCENTR ATE D FORCES HARMONIC ,15// DYN05520 

1 6 X, 8HN0DE NO. , 6X , 5HAX I AL , 10 X , 1DHT ANGENT I AL , 1 OX , 6HR AD I AL , DYN05530 

1 7HANGULAR/) DYN05532 

990 FORMAT (110,4020.8) DYN05540 

1000 FORMAT 1 2 1 5 , / , ( 2F 10 . 0 ) ) DYN05550 

1010 FORMAT I 1H1 ,25X , 39HTE MPE RA TUR E COEFFICIENTS, HARMONIC NO. 13// DYN05560 

1 10X, 11HELE MENT NO . , 1 7X , 12HT EMP. C0EFF..12X, DYN05570 

1 18HTEMP. GRAD. COEFF.///) DYN05572 

1020 FORMAT (120,2030.5) DYNC5580 

1030 FORMAT ( 1H 1 ,2 5X , 32HGENER AL I ZE 0 FORCES, HARMONIC NO. ,13,// DYN0559C 

1 6X.8HN0DE NO. ,6X , 5HA XI AL , 1 3X , iOHT ANGENT I AL , 1 IX , 6HR AD I AL , DYN05600 

1 13X, 7HANGUL AR/// ) DYN05602 

1040 FORMAT <I9,4D19.8) DYN05610 

1050 FORMAT I 1H1 //////5X ,42HRE STAR T INFORMATION FOR TIME INCREMENT N0.,DYN05620 

1 15/ DYNG5622 

1 1CX.22H CORRESPONDING TO T I ME , F 12 .4 , 13H MICROSECONDS,/ DYN05630 

2 2X.46H HAS BEEN PLACEO ON TAPE FOR USE IN SUBSEQUENT, DYN05640 

2 5H RUNS//) DYN05642 

END DYN05650 


0379 
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1 



/READ FOURIER y 

/harmonics card/ 

( IF NO 7 
RESTART / 



© 


2.15 


C INPUT ) 



INPUT 
Functional 


J- 


: 

20 



UPOATE FORCE AND 
THERMAL MATRICES 






RcAD DISTRI3UTED 

loads and calculateI 

LINEAR GENERALIZED | 
FORCES 



THCOE 


READS TEMPERATURE AND 
TEMPERATURE GRADIENTS 
AND CALCULATES THERMAL 
FOURIER COEFFICIENTS 


2.35 



2.34 


3.47 








































sed 


© 2.1 
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£ •**; 


























































LK( NOORES+1 ) 
“3 

LK(N0DRES+2) 
"4 


/ I7P> n 

sNE.INCRSTJ 


/WRITE (6, 
£40) I TP, 
/TPRNT, 
f DELTEP 


[ TH(I,J,n*0.0 

TH(I,J,2)»0.0 
DTH(I,J,1 )=0.0 
| OTH(I.J,2)=0.0 


28 I 420 
CONTINUE 


I 

CALI 

I 


NLTERM 

(0) 

■ 



^ rf7iri.Fi 


1.3 

























1 I 470 
CONTINUE 


FORCE 

FORCE 

FORCE 

» 0.0 

i)* 

I+NEQT) 

I+NEQT) 

4 

480 

CONTINUE 

5 


I» 


J 



^.LE.NEqT 

T NO 


15 | 


ib*o 

16 J- 

s. 


Amo (no, 950 ) t 

/n.NCF.IOELF,/ 
OOCOE.ITCOE. / 
CONST 


INPUT 
Detail 
7 of 9 


^KEY. 

17 

EQ^>~^ 

YES 

18=1 



18 J 



4JCF1.EQ.0 

NO 


NPP-m.EQ, 


cy.Wn.Jin. 

AND. IB.EQ.O 


NPRNTL.EQ.O. 
ND.NPRNTF.EQ.O 


TPRNT-TIK* 

1000000. 


PRNTL.EQ. 


S 




IH»1 
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1 

540 

CONTINUE 

2 



3 



7.28 


550 


CONTINUE 



I NO 


REWIND NS 


IELM=1 


r READ (NS) ((CHECK(I, 
/ J).I a l,8),J a 1 ,8) »(AL 
(D.I-M66) 


CALL FRCES 
(IELH.ALPHK, I 
IB) 


10 I 560 


CONTINUE 


IELK=IELM+1 


YES 



NO 


3.13 


1^7 





INPUT 

Detail' 

8 of 9 


vITELF.EQ 


"N 

.14 

HO 

* REWIND NS 

15 


IBP1 ■ 

■I BO 






. READ (NS) ( (CHECK! 1, 
/j).I-1.8).J-l,8).(AL 
(0,1-1.166) 



30 

S' 

NO 


CALL 

THCOE 

(IELM.IB) 





3 


_ 610 


CALL 

TFORCE 

(IELM.IB) 


32 

620 

CONTINUE 

33 


1ELK-IELK.1 

34 ^ 

‘•'V 
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OYNASOR II ***** 


VERSION 6 




DOUBLE PRECISION 


E (MAIN) 


DESCRIPTION - TO CONTROL PROGRAM FLOW. IT PERFORMS THE 
INPUT/OUTPUT FUNCTIONS FOR CASE DATA. PROCESSING 
IS CONTROLLED BY INCREMENTING THE INDEPENDENT 
VARIABLE, TIME, WHOSE INDIVIDUAL VALUES ARE USED 
TO SUPPLY THE SHELL DISPLACEMENTS THROUGH INTEGRATION 
OF THE EQUATIONS OF MOTION. THE NONLINEAR LOADS 
AND STRESS RESULTANTS FOR THE SHELL ARE ALSO CALCULATED. 

INPUT ARGUMENTS. 

LARGE = CONSTANT WHICH CONTROLS TERMINATION OF THE PROBLEM 
IF DISPLACEMENTS BECOME EXCESSIVE. 

NEQT = TOTAL NUMBER OF EQUILIBRIUM EQUATIONS FOR ALL HARMONICS. 


EXTERNALS. 

CALLS 


INPUT 
NL TERM 
SETUP 


****DYNOOO 10 
DYNOOO 1 2 
DYNC0014 
DYN00016 
DYN0001 8 
DYN00020 
DYNC 0022 
DYN00024 
DYNC 0026 
DYN0002 8 
DYNC0030 
DYNC 0032 
DYN00034 
DYN00036 
DYN00038 
DYNCC040 
DYN00O42 
DYNO0044 
DYNC 0046 
D YN00048 
DYNC 0050 
DYNC0052 


0001 


IMPLICIT REAL *8 <A-H,0-Z) 

DYNC 0054 

0002 


COMMON /QS/ QN11020) , QN1 ( 1 020 ), FORCE ( 2040 ), QP ( 1020 ) ,Q P 1 ( 1020), 
1 QN2 ( 1020 ) 

DYNG0056 

DYN0C058 

000 3 


COMMON /CONST/ NH , N ELEMS , NNOOES ,NS I l E ,NPRNT Q , NE Q, NE QT ,N , NN ,NHNS , 
1 DT2,NPRNTL,NPRNTF,IDELF,IDC0E 

DYN00060 
DYNC CO 62 

0004 


COMMON /TMFT/ TOT I M E , DEL T E , TI ME , TO ,T l 

DYNC0070 

000 5 


COMMON /PRINT/ I PR I NT ,N0 I T , LL 

DYNC0080 

00C6 


COMMON /HARM/ NHP , I H ARM ( 5 ) 

DYN 00090 

0007 


COMMON /RESTRT/ I RSTRT , NPRNT , NPRN I T , I TP , T I ME P , DELTEP 

DYNC0100 

0008 


COMMON /CYCLE/ I TAM 

DYNC01 I 0 

0009 


COMMON /TAPES/ NT ,ND , NS 

DYNCC120 

0010 


DIMENSION CARDI20) 

DYNC0130 

0011 


EQUIVALENCE ( ON ( 1 ) , CARD(l) ) 

DYNC0140 

0012 

C 

DATA TE ST/4HEND / 

DYNC0150 

0YNCC152 


Cl 

(10) READ AND WRITE THE NUMBER OF OATA CASES AND INPUT DATA FOR ALL 

DYNC 0 1 54 


C1C 

C 

CASES 

DYNC0156 
DYNC 0158 


C 

READ INPUT OATA FOR CARO TYPE I 

DY NC 0190 

0013 


READ (5,110) NCASES , ND,NS 

DYNC 0200 

0014 


WRITE (6,120) NCASES 

DYN00210 

0015 


NCASE=0 

DYNC0220 


C 2 

READ AND WRITE INPUT DATA FOR ALL CASES 

DYNP0230 

0016 


REWIND ND 

0YN00260 

0017 


10 NC AR 0=0 

DYNC0270 

0018 


NCASE=NCASE*1 

DYNC0280 
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0019 


MPRI NT=0 

DYNC0290 

0020 

20 

REAO <5,1301 CARD 

DYNC0300 

0021 


IF ( CARD! 1) .EQ.TEST .AND.NCARD.EQ.O) GO TO 40 

DYN00310 

0022 


NC AR D=NC AR0+ 1 

DYNC0320 

0023 


IF ( CARDIll .NE.TESTI WRITE (NO, 130) CARD 

DYN00330 

002 A 


IF l MPR INT.NE.O) GO TO 30 

DYN00340 

0025 


WRITE ( 6,140) NCASE 

DYN00350 

0026 


WRITE 16,150) 

DYNC0360 

002 7 


MPR I NT=5Q00 

DYN00370 

0028 

30 

MPRI NT=MPRI NT-1 

DYN00360 

002 9 


WRITE (6,160) CARD 

DYNC0390 

0030 


IF ( CARD! 1) .NE. TEST) GO TO 20 

DYN004C0 

0031 


IF ( NCARD.NE. U GO TO 10 

0YNC0410 

0032 

40 

NCASE=NCASE-1 

DYN00420 

0033 


IF ( NCASE. NE.NCASES) WRITE (6,170) 

DYN00430 

0034 


REWIND ND 

DYN00440 

0035 


NC AS E=0 

DYNC0460 


C 


DYNC 0462 

0036 

50 

CALL INPUT <1) 

DYNE 0470 

0037 


NCASE = NCASEd 

DYNC 0480 

003 8 


LARGE=0 

DYN00490 


C 


DYN00492 


C 2 

IS THIS A PROGRAM RESTART //YES(70I 

DYN00494 

0039 


IF ( IRSTRT.EO.l) GO TO 70 

DYNC0500 


C 


DYN00508 

0040 


DO 60 I =1 , NEQT 

DYNC05 10 

0041 


QP1< I)=0.0 

DYNC 0520 

0042 

60 

CONTINUE 

DYNC 0530 


C 


DYN00533 


C2 

BEGIN TIME INCREMENTS 

DYNCC535 

0043 


I TP = 0 

DYNC0550 

0044 


TIME P=0 . 0 

DYNC0560 

0045 


T 0=0.0 

DYNC0570 

3046 

70 

KKP2 = ITPMT0TIME-TIMEP+0ELTE*.00l)/DELTE 

DYNC0580 

0047 


NOI T = KKP2 

DYNC 0590 

0048 


LL = 1 

DYNC0600 

0049 


IF ( IRSTRT.EO.l) LL=ITP+1 

DYN006 I 0 


C100 

PROCESS ALL TIME CYCLES 

DYN0061 2 


c 


DYN00618 

0050 


DO 90 I T AM=LL ,KKP2 

DYNC0620 

0051 


T I ME = T l ME P+ ( I T AM- 1 TP) *DELT E 

DYNC0630 


Cl IF 

TIME .GT. TUI )//N0(80) 

DYN00632 

0052 


IF (TIME.LE.T1) GO TO 80 

DYNC0640 

0053 


IF ( ITAM.EQ.KKP2) GO TO 80 

DYNC0650 

0054 


T 0=T 1 

DYNC0660 


Cl 

CALCULATE GENERALIZED FORCES FOR TINE TIC 1*11 

DYN0C662 

0055 


CALL INPUT (2) 

DYN00670 

0056 

80 

CONTINUE 

DYN00680 
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Cl 

SOLVE EQUATIONS OF MOTION AND CHECK STABILITY OF NUMERICAL 

DYNC0682 


C1C 

SOLUTION. 

DYNC0684 

0057 


CALL SETUP ( I TAM, TIME , LARGE) 

DYNCC690 


Cl 

DISPLACEMENT TOO LARGE FOR STABLE SOLUT I ON// YES ( 100 ) 

DYNC 0692 

0058 


IF (LARGE. EQ.l) GO TO 100 

DYNC 0700 

005 9 

90 

CONTINUE 

DYN00710 


C 


DYNC 07 1 3 

0060 


ITAM=KKP2+1 

DYN00720 

0061 


TIME=TIME+DELTE 

DYNCC730 


Cl 

CALCULATE NONLINEAR LOAOS AND STRESS RESULTANTS FOR EACH ELEMENT 

DYN00732 

0062 


CALL NL TERM (ITAM) 

DYN 00740 


Cl 

ARE ALL CASES PROCE SS ED/ /N0( 50) 

DYN00742 

0063 

100 

IF ( NCASE. LT.NCASESI GO TO 50 

DYNC 0750 

0064 


WRITE (6,180) 

DYN00760 

006 5 


STOP 

DYN00770 


C 


DYN00780 

0066 

110 

FORMAT (315) 

DYN00790 

0067 

120 

FORMAT ( 1H 1 , / //, 30X.31HTHE NUMBER OF CASES TO BE RUN =,I5> 

DYNC08C0 

006 8 

130 

FORMAT ( 20 A4) 

DYNC0810 

0069 

140 

FORMAT ( / / RH1 NCASE= , I l// , 28X , 22HPRI NTOUT OF INPUT DATA,/) 

DYN00820 

CO 70 

150 

FORMAT ( 13X,2H10,8X,2H20 , 8X , 2 H30 , 8 X, 2H4C , BX , 2H50 , 8X , 2H60 , 8X, 2H70 , 

DYN00830 


1 

8X.2H80/ 

DYN00840 


1 

5X,8( 10H1234567890)/) 

DYNC0850 

0071 

160 

FORMAT (5X.20A4) 

DYN0P860 

0072 

170 

FORMAT ( 50H THE NUMBER OF INPUT CASES DOES NOT AGREE WITH THE, 

DYN00870 


1 

22H VALUE OF NCASES INPUT) 

DYN 00880 

0073 

180 

FORMAT (IH1//10X.18HALL DATA PROCESS EO// 10X , 1 1 H . . . STOP) 

DYN00890 

0074 


END 

DYN00900 
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CE(MATMUT) 

DYN 10852 


C 



DYN1C854 


C 


DESCRIPTION - TO MULTIPLY AN INPUT VECTOR BY THE STIFFNESS MATRIX 

DYN 1 0856 


C 



DYN 10858 


C 

INPUT ARGUMENTS. 

DYN 1 0 860 


C 


FORCE = MATRIX OF GENERALIZED FORCES DUE TO EXTERNAL LOADS AND 

DYN10862 


c 


TEMPERATURES. 

DYN10864 


c 


IH = HARMONIC KEY. 

DYN10866 


c 


I ID = VECTOR RANK IN MATMUT. 

DYN 10868 


c 


STIFM = STIFFNESS MATRIX. 

DYN10870 


c 



DYN 1 0872 


c 

EXTERNALS. 

DYN 10874 


c 


CALLED BY 

DYN10876 


c 


H0UBQ1 

DYN10878 


c 


HOUBQN 

DYN10880 


c 



DYN 10882 

0001 



SUBROUTINE MATMUT ( I H , FORC E, ST I FM, A. II DJ 

DYN 1 08 84 

0002 



IMPLICIT REAL *8 (A-H.O-ZJ 

DYN1C8R6 

0003 



DIMENSION AI204J, STIFMI6550), F0RCEI1020) 

DYN 1 088 B 


Cl 


MULTIPLY INPUT VECTOR BY MATRIX 

DYN1 0890 


c 



DYN10938 

0004 



DO 10 1=1, I ID 

DYN 1 0940 

0005 



All) =0.0 

DYN 1 0950 

0006 


10 

CONTINUE 

DYN10952 


c 



DYN1C955 

0007 



NN=I ID/4 

DYN 1 0960 

0C08 



NT=2 6*(NN-1M-10 

DYN 10970 

0009 



NK=NT*< IH-1 ) 

DYN10980 

0010 



NF= I ID*( IH-ll 

DYN10990 

0011 



NA=NK 

DYNl 1000 


c 



DYN 1 1008 

0012 



DO 20 J = 1 , 4 

DYNl 1010 


c 



DYNl 1018 

0013 



DO 20 1*1, J 

DYNl 1020 

0014 



N A=NA+ 1 

DYNl 1030 

0015 



A(I)=AI I )«-STlFM<NA)*FORCE(NF*J> 

DYNl 1040 

0016 


20 

CONTINUE 

DYN 1 1042 


c 



DYNl 1045 

0017 



A< 2) =A< 2) ♦STIFM(NK*2)*F0RCE(NF+1> 

DYNl 1050 

0018 



A( 3J=A( 3)«-STIFM(NK*4)*F0RCE(NF + l J +ST JFM I NK+5 > *FORCE t NF+2 > 

DYNl 1060 

0019 



A(4) = A(4M-STIFM(NK+7)*F0RCE(NF + l J+ST IFM ( NK-t-B > *FORCE ( NF + 2 ) «• 

DYNl 1070 



1 

ST IF MI NK*9)*F0RCE(NF + 3) 

DYNl 1080 

0020 



NKK = NK«-10 

DYNl 1090 

0021 



NM1=NN-1 

DYNl 1100 


c 



DYNl 1108 

0022 



DO 40 1=1, NM1 

DYNl 1110 

0023 



N I =4*( I - 1 1 

DYNl 1120 

0024 



NFF=NF*NI 

DYNl 1130 
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C 



DYN1 1138 

0025 



00 40 J = 5 f 8 

DYN 11140 

0026 

C 


JM1=J— 1 

DYN1 1150 
DYN1 1158 

00 2 7 



DO 30 L = 1 « JH1 

DYN 1 1160 

002 8 



NKK=NKK+1 

DYN1 1170 

0029 



A(NI*L) = A(NI+L>+STIFM(NKK)*F0RCE(NFF4-J ) 

DYN 1 1180 

0030 



A ( NI+J) =A<NI*J»+STIFM(NKK)*FORCEINFF+L ) 

DYN 1 1190 

0031 

c 

30 

CONTINUE 

DYN1 1192 
DYN 1 1 1 95 

0032 



N KK=NKK+1 

DYN11200 

00 3 3 



A(NH-J)=A<NI*J>«-STIFM(NKK)*FORCECNFF«-J I 

DYN 1 1210 

0034 

c 

40 

CONTINUE 

DYN 11212 
DYN1 1215 

0035 



RETURN 

DYN 1 1220 

0036 



END 

DYN11230 
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DESCRIPTION - TO PROCESS ALL ELEMENTS TO OBTAIN THE 

GENERALIZED NONLINEAR LOADS. IF STRESS COMPUTATIONS 
ARE REQUIRED, THEN THE STRESS RESULTANTS AND STRESSES 
ON THE UPPER AND LOWER SHELL SURFACES ARE COMPUTED 
AND PR INTED OUT. 

INPUT ARGUMENTS. 


E 1 


E 2 


FNU1 


FNU2 


QPR 

T 


MATRIX CONTAINING THE YOUNG'S MODULUS IN THE MERIDIANAL 
DIRECTION FOR EACH HARMONIC. 

MATRIX CONTAINING THE YOUNG'S MODULUS IN CIRCUMFERENTIAL 
DIRECTION FOR EACH ELEMENT. 

MATRIX CONTAINING THE VALUES OF POISSON'S RATIO FOR 
EACH ELEMENT. 

MATRIX CONTAINING THE VALUES OF POISSON'S RATION FOR 
ELEMENT. 

SHEAR MODULUS, G (FOR AN ISOTROPIC MATERIAL 
G = ( E / 2 1 * ( 1 ♦ NU)I. 

- partial DERIVATIVE OF U-NL WITH RESPECT TO LOWER CASE 
MATRIX OF ELEMENT THICKNESSES. 


OUTPUT ARGUMENTS. 

QP = Q - PARTIAL DERIVATIVE OF 

CASE Q AT TIME STEP (N-l). 


U-NL WITH RESPECT TO LOWER 


EXTERNALS. 

CALLED 


CALLS 


BY 


MAIN 

INPUT 

SETUP 

QPRI ME 
STRESS 


SUBROUTINE NLTERM (ITAM) 

IMPLICIT REAL*8 (A-H,0-ZJ 

COMMON /CONST/ NH ,N EL EMS , NNOD ES , NS I Z E ,NP RNTQ , N EQ, NEQT , N , NN , NHNS , 
1 DT2,NPRNTL,NPRNTF,IDELF, IDCOE 

COMMON /TMFT/ TOT I M E , DELT E , T I MF , TO , T 1 

COMMON /OS/ ONI 1020) , ONI ( 1020 ) , FORC E < 2T99 ) , 0 P < 1C2C > ,QP1 1 1020) , 

1 QN2 ( 1020) 

COMMON /GE CM/ FNU1 1 50 ) , FNU2 1 50 ) , E 1 1 50 ) , E 2 ( 50 ) , G 1 50 ) , T ( 50 ) , 

1 SINE! 51) ,COSINEI51),SINM(5C),COSM(5C) , R I 50 ) , PH ( 50 ) , 

1 PHPI 50) ,ARCLI50) 

COMMON /EES/ ES ( 5 > , ET I 5) , EST ( 5 ) , E 1 3 1 5 ) , E 23 1 5 ) 

COMMON /t^LTRMS/ QPRI8.5) 

COMMON /CCD/ CC1,CC2,0D1,DD2,GGI,GG2 
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DYN06539 
DYN 065 36 
DYN06538 
0YN06590 
DYN 06 592 
DYN06599 
DYN06596 
DYN06598 
DYN06550 
DYN06552 
DYN06559 
DYN06556 
DYN06558 
DYN06560 
E ACHDYN06562 
DYNC 6569 
DYNf 6566 
DYN06568 
Q DYN0 6570 
DYN06572 
DYNC 6579 
DYN06576 
DYNC 6578 
DYNG65B0 
DYN06582 
DYN06589 
DYNC 6586 
DYN06588 
DYN06590 
DYN06592 
DYNC 6599 
DYN06596 
DYN06598 
DYN06600 
DYN06602 
DYN06609 
DYN06606 
DYN066C8 
DYN06610 
DYN06612 
DYN066 19 
DYN066 1 6 
DYN06618 
DYN06619 
DYN06620 
DYN06630 
DYN06690 
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0010 


COMMON /THETAS/ THET A ( 20 ) , NTH ET A , NCL CST , NSTR SS 


DYN06650 

0011 


COMMON /PRINT/ I PR I NT , NO I T , LL 


DYN 06660 


C 



DYNf 6670 


c 

CALCULATION OF NONLINEAR TERMS 


DYN06680 


c 



DYN 06690 


c 

THE MIDSURFACE STRAINS ANO ROTATIONS AND NONLINEAR TERMS 


DYN06700 


c 

ARE BASED ON A CONICAL FRUSTUM ELEMENT. THIS IS THE ONLY 

PLACE A 

DYN06710 


c 

CONICAL FRUSTUM ELEMENT IS USED. 


DYN06720 


c 



DYN06728 

0012 


DO 10 I =1 tNEQT 


DYN06730 

00 13 


Q P 1 1 )=C.0 


DYN06790 

0019 

10 

CONTINUE 


DYNf 6750 


c 



DYN06753 


Cl DO 

PROCESS ALL ELEMENTS 


DYN06755 


c 



DYNC 675 8 

0015 


DO 90 I 1 = 1 » NE LE MS 


DYN06760 

0016 


F N = 1 .-FNU1 ( I 1)*FNU2(I1) 


DYNC6770 

0017 


CC1 = E1 ( I1)*T(I1)/FN 


DYNC 6780 

0018 


CC2 = E2< I1)*T(I1)/FN 


DYN06790 

0019 


GG1 = C>( U)*T< ID 


DYN06800 

0020 


GG2=G< I1»*TU 1)**3/12. 


DYN06810 

0021 


DD1=E1< I1)*T(I1)*03/(12.*FN) 


DYN06820 

0022 


DD2=E2I I 1)*T(I l) **3/112. *FN) 


DYNC6830 


c 



DYN 0 6890 


c 

FORM QPRIMES 


DYN06850 


c 



DYNC6860 


Cl 

CALCULATE GENERALIZED NONLINEAR LOADS 


DYN06862 

0023 


CALL QPRIME (III 


DYNC6870 


c 



DYN06880 


c 

FORM STRESS RESULTANTS 


DYNC 6890 


c 



DYN 06900 

0029 


IF ( NSTRSS.EQ.C) GO TO 20 


DYNC6910 


C1IF 

STRESS COMPUTATION REQUIRED .THEN. CALCULATE AND PRINT 

STRESS 

DYNC 6912 


C1C 

RESULTANTS AND STRESSES ON UPPER AND LOWER FACES 

DYN0691 9 

00 2 5 


IF ( UITAM-t ITAM/INSTRSS) ) *< NSTRSS > > . EQ. 1 


DYN 06920 



1 . OR . I T AM . EQ. 2 


DYN0692 2 



1 .OR. I TAM.EQ. NO I T 1 


DYN06929 



l .OR. NSTRSS. EQ.l) 


DYN06926 



1 . AND. NCLCST. EQ.l) 


DYNC 6928 



1 CALL STRESS (Il.ITAM) 


D YNC6930 

0026 

20 

continue 


DYN 06990 


c 



DYN06998 

0027 


00 30 I 1=1 ,NH 


DYNC6950 

0028 


K A=NEQ* ( I I-l)+9*( 11-1) 


DYNC6960 


c 



DYNC6968 

0029 


DO 30 JJ=l,9 


DYNC 6970 

0030 


KK=KA+ JJ 


DYNC6980 

0031 


QP(KK) =QP(KK.)-QPR (JJ ,1 I ) 


DYN06990 
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0032 



QP<KK«-9)=-QPR< JJ + 9, I I ) 

0033 

C 

30 

CONTINUE 

0039 

C 

90 

CONTINUE 

0035 



RETURN 

0036 



END 
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CE(NRESTR) 

C 

C DESCRIPTION - TO APPLY THE OESIREO BOUNDARY CONDITIONS TO 

C THE LEFT SIDE OF THE EQUATIONS OF MOTION. INSERT 

C ONES ON THE DIAGONAL OF THE STIFFNESS MATRIX FOR 

C THE FIRST HARMONIC ONLY. 

C 

C INPUT ARGUMENTS. 

C KY RESTART KEY. 

C LK MATRIX INDICATING THE NODAL RESTRAINTS WHICH ARE APPLIED 

C ON THE SHELL. 

C NCLOSE = CONSTANT USED TO INDICATE THE PRESENCE OF A SINGULARITY 

C AT THE FIRST NODE OF A CLOSED SHELL. 

C NN STURAGE BLOCK INDICATOR FLAG FOR STIFFNESS AND MASS 

C MATRICES. 

C NODRES = NUMBER OF DOSPLACEMENT CONSTRAINTS APPLIED TO THE SHELL. 

C 

C OUTPUT ARGUMENTS. 

C FORCE = MATRIX OF GENERALIZED FORCES OUE TO EXTERNAL LOADS AND 

C TEMPERATURES. 

C STIFM = STIFFNESS MATRIX. 

C 

C EXTERNALS. 

C CALLEO 8Y 

C H0UBQ1 

C 

SUBROUTINE NRESTR (KY) 

IMPLICIT REAL*8 (A-H.O-Z) 

COMMON /SLVEEC/ ST I FM ( 65 50 ) ,F ORCE ( 204 1 

COMMON /CONST/ NH ,NE LEMS , NNODE S ,NS I Z E , NPRNT Q , NEQ, NEQT , N, NN, NHNS, 

1 DT2,NPRNTL,NPRNTF,IDELF,IOCOE 

COMMON /RSTRNT/ NODR E S .NCLOSE , LK ( 204 I 
Cl APPLY BOUNDARY CONDITIONS TO THE LEFT HAND AND RIGHT HAND SIDES 
C1C OF THE EQUATIONS OF MOTION 

NODRE = NCORE S 

IF 4 KY. EQ.O. AND. NCLOSE. EQ. 1) NODRE*NODRE+2 
IF (NODRE.EQ.O) GO TO 90 
C 

DO 80 L = 1 , NCDRE 
NEQ=LK( L) 

!ELM=(NEQ-1) /4 
IF ( IELM.GT.O) GO TO 30 
I = NEQ 
C 

DO 10 J = 1 , NF Q 

K = < I * I — I ) /2 + J + NN 
STIFM(K)=0.0 
10 CONTINUE 


DYN 10252 
DYN 102 54 
0YN10256 
DYN 10258 
DYN 10260 
DYN 10262 
DYN 10264 
DYN 1 026 6 
DYN 10268 
DYN 1 0270 
DYN 10272 
DYN1C274 
DYN 10276 
DYN10278 
DYN 10280 
DYN 1 028 2 
DYN 1 02 8 A 
DYN10286 
DYN10288 
DYN 10290 
DYN10292 
DYN10294 
DYN10296 
DYN10298 
DYN 1 0300 
0YN103O2 
DYN 10304 
DYN 1 0 306 
DYN 1 0308 
DYN 1 03 10 
DYN 10312 
DYN 1 03 1 4 
DYN 10 3 16 
DYN 10318 
DYN10350 
DYN 1 0360 
DYN 1 0370 
DYN 1 0 378 
DYN 10380 
DYN 1 0390 
DYN10400 
DYN10410 
DYN 1 0420 
DYN 10428 
0YN1C430 
DYN 1 0440 
DYN10450 
DYN 10452 
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c DYN 10455 


0018 



J =NE Q 

DYN10460 


C 



DYN 1 0468 

0019 



DO 20 I=NEQ,8 

DYN10470 

0020 



K=< 1*1-1 )/2*J*NN 

DYN 1 0480 

0021 



STI F M ( K ) = 0 • 0 

DYN10490 

0022 


20 

CONTINUE 

DYN10492 


C 



DYN 1 0495 

00 2 3 



K=(NEQ*NEQ-NE0)/2*NEQ*NN 

DYN10500 

0024 



stifmiki=i.o 

DYN 10510 

002 5 



GO TO 70 

DYN10520 

0026 


30 

CONTINUE 

DYN10530 

0027 



I =NE Q-4*I E LM 

DYN 1 0 540 

0028 



N=I*4 

DYN 10550 


C 



DYN 1 0558 

0029 



DO 40 J=1,N 

DYN10560 

00 30 



K= 10*26*1 IFLM-1 J*4*(I-1 >*< 1*1- 1 )/2*J*NN 

DYN 10570 

0031 



STIFM(K)=0.0 

DYN10580 

0032 


40 

CONTINUE 

DYN1C582 


c 



DYN10585 

0033 



J = NE Q— 4*( I ELM-1 ) 

DYN10590 

0034 



N=NEC-4*IELM 

DYN10600 


c 



DYN10608 

0035 



DO 50 I =N 1 4 

DYN 10610 

0036 



K=l0*26*( I ELM-1 ) *4* ( I — 1 ) *( I*I-I»/2*J*NN 

DYN10620 

3037 



STIFM(K)=0.0 

DYN1C630 

0038 


50 

CONTINUE 

DYN10632 


c 



0YN10635 

0039 



K=IC*26*< IELM-1)*4*<N-1)*< N*N-N ) / 2* J*NN 

DYN 10640 

0040 



STIFM(K) =1.0 

DYN 10650 

0041 



IF ( I ELM. E C. NE LEMS I GO TO 70 

DY N 1 0660 

0042 



I E LM= I E LM* 1 

DYN 1 0670 

3043 



J = J-4 

DYN 1 0680 


c 



DYN1C688 

0044 



o 

o 

O' 

o 

II 

¥-* 

* 

DYN 1 0690 

0045 



K=10*26*< I ELM-1) +4* ( 1-1 )*! I*I-II/2*J*NN 

DYN 10700 

0046 



STI FM(KI=0.0 

DYN 10710 

0047 


60 

CONTINUE 

DYN 1 0712 


c 



DYN 10715 

3048 


70 

FORCE(NEO) =0.0 

DYN10720 

004 9 


80 

CONT INUE 

DYN 10730 


c 



DYN 10733 

0050 


90 

CONTINUE 

DYN10740 


c 1 


IF NOT FIRST HARMONIC .THEN. RETURN 

0YN10742 

0051 



IF (KY.NE.O) RETURN 

DYN10780 


c 1 


INSERT ONES ON THE DIAGONALS OF THE STIFFNESS MATRIX 

DYN 10782 

0052 



STIFM(3>=1.0 

DYN 10790 


c 



DYN10798 
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0053 

0054 

0055 

0056 

100 

DO 100 I = 2 » NNODE S 
K=2i +26* ( 1-2) 
STIFM(K)=1.0 
CONTINUE 



DYN10800 
DYN108 10 
DYN 10820 
DYN 10822 


OC 5 7 
3058 

C 

RETURN 

END 



OYN1C825 
DYN 10830 
DYN10840 
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C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 

c 

c 

c 

c 
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c 

c 
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DESCRIPTION - TO COMPUTE THE GENERALIZED NONLINEAR LOADS. 

FOURIER COEFFICIENTS AND O-PRIMES ARE COMPUTED. IF 
NECESSARY, COEFFICIENTS AND Q-PRIMES ARE UPDATED 
BY INCLUDING THERMAL EFFECTS. 

INPUT ARGUMENTS. 


> MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 
COS( I *TH£T A ) * COS( J7THETA) * COS(K*THETA> * DTHETA. 

: YOUNG'S MODULUS TIMES SHELL THICKNESS, NORMALIZED WITH 
RESPECT TO POISSON RATIOS (MERIDIANAL DIRECTION). 

: YOUNG'S MODULUS TIMES SHELL THICKNESS, NORMALIZED WITH 
RESPECT TO POISSON RATIOS (CIRCUMFERENTIAL DIRECTION). 

= MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 
COSl I THETA ) * S I N( J *THETA ) * SIN(K*THETA) * DTHETA. 

: MATRIX OF NONLINEAR STRAINS USED IN THE CALCULATION OF 
EACH HARMONIC. 

« MATRIX OF NONLINEAR STRAINS USED IN THE CALCULATION OF 
EACH HARMONIC. 

• MATRIX CONTAINING THE VALUES OF POISSON'S RATIO FOR 
EACH ELEMENT. 

• SHEAR MODULUS TIMES SHELL THICKNESS (MERIDIANAL 
DIRECTION) . 

IHARM * MATRIX OF HARMONIC NUMBERS FOR WHICH DISPLACEMENTS 
AND/OR STRESSES WILL BE CALCULATED. 

= DISPLACEMENTS AT TIME INCREMENT ( N- 1 ) UP TO STATEMENT 20 
AFTER STATEMENT 30 THIS MATRIX HAS BEEN CHANGED TO 
THE DISPLACEMENTS AT TIME STFP (Nl. 

' RADIAL DISTANCE OF ELEMENT FROM ORIGIN. 

• MATRIX CONTAINING INTEGRALS FROM 0 TO 2*P I OF 
SIN(I*THETA) * S I N( J*THET A) * COS(K*THETA) * DTHETA. 

= /-DISTANCE OF ELEMFNT FROM ORIGIN. 


ccc 


CC1 


CC2 


CSS 


E 13 


E 23 


FNUl 


GG1 


ON 


RO 

SSC 


DYN07052 
DYN07054 
DYN07056 
DYN07058 
DYN07060 
DYNf 7C62 
DYNG7064 
DYN07066 
DYN07068 
DYM07070 
DYNG7C72 
DYN07074 
DYN07076 
DYN07078 
DYN07080 
DYN07082 
DYN07C84 
DYN07C86 
DYN07088 
DYN07090 
DYN07092 
DYN07094 
DYN07096 
DYN07098 
DYN07100 
DYN07102 
DYN 07104 
DYN07106 
DYN07108 
DYN07I 10 
DYN07112 
DYN071 I 4 
DYN071 16 
DYNC71 1 8 


c 

OUTPUT 

ARGUMENTS. 





DYN07120 

c 

c 

ES 

= MATRIX OF THE LINEAR 
OF EACH HARMONIC. 

STRAINS, US EO 

IN 

THE 

CALCULATION 

DYNC 712 2 
DYN07124 

c 

c 

EST 

= MATRIX OF THE LINEAR 
OF EACH HARMONIC. 

STRAINS, USED 

IN 

THE 

CALCULATION 

DYN07 1 26 
DYN07128 

c 

c 

ET 

= M4TRIX OF THE LINEAR 
EACH HARMONIC. 

STRAINS, USED 

IN 

THE 

CALCULATION OF 

DYN 07130 
DYN071 32 

c 

c 

E 13 

= MATRIX OF NONLINEAR 
EACH HARMONIC. 

STRAINS USED IN 

THE CALCULATION OF 

DYNC 7134 
DYN071 36 


C 

C 

C 

C 

C 


E 2 3 


QPR 


MATRIX OF NONLINEAR STRAINS USED IN THE CALCULATION OF 
EACH HARMONIC. 

- PARTIAL DERIVATIVE OF U-NL WITH RESPECT TO LOWER CASE 


EXTERNALS. 


DYN071 38 
DYN07140 
QDYN07142 
DYN07144 
DYN07146 
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r 

CALLED 8Y 

DYN07148 


c 

NLTERM 

0YN071 50 


c 


DYNC 7152 

0001 


SUBROUTINE QPRIME (ID 

DYN071 54 

0002 


IMPLICIT REAL*8 (A-H.O-ZI 

0YNC71 56 

0003 


COMMON /CONST/ NH , NELEMS .NNOOES , NS I Z E, NPRNT Q ,N EQ, NEQT , N , NN , NHNS , 

0YN07158 



1 0T2,NPRNTL,NPRNTF,IDELF, IDCOE 

0YN07160 

0004 


COMMON /CS/ CCC (1251 ,SSC< 1251 ,CSS< 125) 

DYN07162 

C005 


COMMON /CS4/ CCCC(625J , SSSS(625! ,SSCC(625) , SCCS(625J 

DYN07164 

0006 


COMMON /EES/ ES ( 5 ) , ET ( 5 1 , E ST { 5 ) , E 1 3 ( 5) , E23 ( 5 ) 

DYN07166 

0007 


COMMON /NLTRMS/ QPR(8,5! 

DYN07168 

0008 


COMMON /GEOM/ FNU1 ( 50) ,FNU2 ( 50 ) , E 1 ( 50 ) , E2( 50 ) , G( 50 1 ,T ( 501 , 

DYND7170 



1 S I NE ( 51 • «COSINE(51I,SINM(50) ,CQSM( 50 ) , R ( 50 ) » PH ( 50 ) « 

0YN07172 



1 PHP( 50) ,ARCL (50) 

DYN07174 

0009 


COMMON /GCD/ CC 1 , CC2 ,001 , 0D2 , GG1 , GG2 

0YN07176 

0010 


COMMON /HARM/ NHP , I HARM( 5 ) 

DYN07178 

0011 


COMMON /THER/ TH( 50 ,5 , 2 ) , DTH( 50 , 5 , 2 ) , ALS ( 50 ) , ALT ( 50 ) 

DYN071 80 

0012 


COMMON /THCON/ ITELF,ITCOE,NPRNTH 

DYN07182 

0013 


COMMON /TMFT/ TOT I ME , OELTE ,T I ME , TO ,T 1 

DYN07190 

0014 


COMMON /OS/ QN(1020I , QN1 ( 1020 ), FORCE <2040 ), 0P( 1020 ), QPl ( 1020 ) , 

DYN07200 



1 QN211020) 

DYNC 72 10 

0015 


COMMON /R 1 / RO ( 51 ) ,Z(51) 

DYN07220 

0016 


DIMENSION E23Q1(5» , E2303(5I, E23Q5(5), E230715), EST01 (5) , 

DYN07230 



1 E STQ3 ( 5 ) , ESTQ5 ( 5 ) , ESTQ7(5), ETQ215), ETG6I5) 

DYN07240 


c 

CALCULATE GENERALIZED NONLINEAR LOADS 

DYN07260 


c 

COMPUTE OFTEN USED QUANTITIES 

DYN07280 

0017 


J1 = I 1 

DYN07290 

0018 


J 1 1= I !♦ 1 

DYN07300 

0019 


DRO=RO( Jill -RO { JD 

DYN07310 

0020 


DZ=Z( Jll)-Z(Jl) 

DYN07320 

0021 


ARL=OSQRT (DRO*DRO-*-OZ*OZ) 

DYN07330 

C022 


S I PH=DRO/ ARL 

DYN07340 

0023 


COPH=OZ/ARL 

DYN07350 

0024 


RM=(R0(Jl)*RC(Jll))/2.0 

DYNC7360 

0025 


R2I=1.0/(2.0*RM) 

DYN07370 

002 6 


ARCL 1=1.0 /ARL 

DYN07380 


c 

COMPUTE DERIVATES INDEPENDENT OF I 

0YNC7390 

0027 


E TQ3 =R2 I 

DYN07400 

0028 


E TQ7 = R2 I 

DYN074 10 

C029 


E23Q2=-R2I*COPH 

0YN07420 

0030 


E23C6=E23S2 

DYN07430 

0031 


E13Q1=ARCLI*$IPH 

DYN07440 

0032 


E13Q3=- ARCLI*COPH 

DYN07450 

0033 


E13Q5=-ARCLI*SIPH 

DYN07460 

0034 


E13Q7=ARCLI*C0PH 

DYNC7470 

0035 


E STQ2=- S I PH*R2 I -ARCL I 

DYN07480 

0036 


ESTQ6=-SIPH*R2DARCLI 

DYN07490 

0037 


ESQ1=E13Q3 

DYNC7500 
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0038 


ESQ3=-E 1 3Q1 

DYNC7510 

0039 


E SQ5 =E 1 30 7 

DYN07520 

004 0 


ESU7 =-E 1305 

DYN07530 


Cl 

COMPUTE UERIVATES THAT ARE A FUNCTION OF I 

DYNC 7532 

0041 


C02R =C0PH*R2 1 

DYN07550 

0042 


SL2R =S I PH*R2 1 

DYN07560 

0043 


CL2R =C0PH*R2 1 

DYN07570 

0044 

C 

S02R =S I PH*R2 I 

DYN07580 

DYN07588 

0045 


DO 10 I H= 1 » NH 

DYNC7590 

0C46 


K= IH ARM ( IH ) 

DYNC7600 

004 7 


XK=K 

DYNC7610 

004 8 


E23Ql<IH)=S02R*XK 

DYNC7620 

0049 


E23Q3( IH)=-C02R*XK 

DYN07630 

0050 


E23U5( IH)=SL2R*XK 

DYN07640 

0051 


E 2307 ( I H ) = -C L2R*XK 

0YN07650 

00 52 


EST01I IH)=E23Q3( IH) 

DYN07660 

0053 


ESTQ3I IHI=-E23Q1 (IH) 

DYNC7670 

0054 


E ST05 ( IH ) = E2 3Q7 ( IH) 

DYNO 76 80 

0055 


E STO 7 ( I H ) =-E 2 305 ( I H) 

DYN07690 

0056 


ET02 ( IH)=R2I *XK 

DYN07700 

0057 


ETQ6(IHI=ET02(IH) 

DYN07710 


c 

COMPUTE ET, ES, EST, E13, E23 

DYN07720 

00 5 8 


KK=NEQ*(IH-1 l + 4*< I 1—1 ) 

DYN07730 

0059 


K K 1 = KK+ 1 

DYN07740 

0060 


KK2=KK+2 

DYNO 7750 

0061 


KK3=K.K«-3 

DYNO 7760 

0062 


KK5 = KK+ 5 

DYNO 7770 

0063 


KK6=KK+6 

DYN07780 

0064 


KK 7= KK + 7 

DYN07790 

0065 


ET(IH)=+ETQ2(IH)*0N(KK2)+ETQ3*QN(KK3)*ET06( I H) *QN ( KK6 > +E TQ7* 
1 QN ( KK7 ) 

DYN07800 

DYNC7810 

0066 


6 SC IH)=ESQ1X‘QN(KK1)*ESQ3 , *QN(KK3)'*-ES05*QN(KK5)*ESQ7*0N(KK7) 

DYN07820 

0067 


E S T t IH)=ESTQ1( IH)*0N(KKl) + EST02*0N(KK2H-ESTQ3( IH)#QN(KK3) + 
1 E ST 05 ( IH ) *QN( KK5 ) +ES T 06* ON ( K K 6 ) + FS T Q7 ( IH) *QN (KK7 ) 

DYN C 7830 
DYN07840 

0068 


E 1 3 ( IH)=E13Q1*QN<KK1)+E13Q3*QN<KK3)+E13Q5*0N<KK5)+E13Q7*GN<KK7)DYN07850 

0069 


E 23 ( I H ) = E2 301 ( IH)*QN(KKi)+E23Q2*QN(KR2)+E23Q3( IH)*QN( KK3) ♦ 
1 E23Q5<IH)*QN{KK5)+E23Q6*QN(KK6)+E23Q7< IH)*QN (KK7 ) 

DYNC7860 

DYN07870 

0070 

c 

10 CONTINUE 

DYN07880 

DYN07883 

C071 


I TH= 0 

DYN07890 

0072 


RSL=RM*ARL/2.0 

DYNC7900 


Cl 

COMPUTE COEFFICIENTS ANO Q-PRIMES 

DYN07902 


c 


DYN07908 

0073 


DO 40 M=1,NH 

DYNC7910 

0074 


CES=0.0 

DYN07920 

0075 


C E T=0 .0 

DYNC7930 

00 76 


CEST=0.0 

DYN07940 
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0077 

0078 

0079 

0080 
0081 
0082 


0083 

0089 

0085 

0086 
0C87 
0088 

0089 

0090 

0091 

0092 

0093 
0099 

0095 

DC 96 


0097 

009 8 

0099 

0100 

0101 

0102 

0103 

0109 

0105 

0106 
0107 
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20 


C E 13=0 . 0 
C E23=0. 0 
K= 1H ARM ( Ml 

DO 20 1=1,8 

QPR ( I ,M ) =0. 0 
CONTINUE 


DO 


30 1=1, NH 
I I = 1 HARM ( I I 


C 

C 


DO 30 J = 1 « NH 
JJ=IHARM( J I 
IPJ=II«-JJ 
IMJ=II-JJ 

IF ( IPJ.NE.K.AND.IABSUMJ) .NE.KI GO TO 30 
I T H= IT H* 1 

COMPUTE COEFFICIENTS 

CES=CC1* ( CCC ( ITHI*F13U»*E13(J)FFNUK !l)*SSC( ITH)*E23(II 
1 E23 ( J I I +CFS 

CET=SSC( ITH)*CC2*E23U1*E23( JI+FNU1 ( 1 1 I*CC1*CCC ( ITHI* 

1 E13UI*E13<J»*CET 

CEST=2 . 0*GG 1 *CSS ( ITH)*E13(J)*E23(I l+CEST 
CE13=2.0*CC1*CCC< ITHI*E13(I»*( ESI J I ♦FNUl C 1 1 1 *ET ( J I M-2.0* 
1 GGlfSSCl IT H ) *EST ( I I *E23 ( J I »CE 1 3 

CE23=2.0*CSS<ITHI*(E23<II*<CC2*ET(JI+FNU1<I1)*CCI*ES(J) I 
1 GG1*E13< JI*EST< III+CE23 

30 CONTINUE 

COMPUTE Q PRIMES 

QPR ( 1 ,MI =( CE13*E13QH-CES*ESQH-CEST*ESTQICM)+CE23*E23Q1(M) )*RSL 
1 QPR ( 1 * M I 

QPR ( 2, Ml =( CE23*E23Q2 + CEST*ESTQ2+-CET*ETQ2( M) )*RSL+QPR( 2, Ml 
QPR( 3, M)=(CE 13*E13Q3+CET* ETQ3 ♦CESSES Q3+CE23*E23Q3IM)+CEST* 

1 ESTQ3(M> )*RSL+QPR(3,MI 

QPR(5,MI=(CE13*E13Q5 + CES*ESQ5«-CE2 3*E2 3Q5 (M)+CEST*ESTQ5(M) l*RSL 
1 QPR ( 5 »M I 

QPR (6, Ml = (CET*ETQ6(M)«-CE2 3«‘E23Q6 + CEST*ESTQ6>*RSL+QPR<6,M) 

QPR I 7, Ml = (CE13*E13Q7*CET*ETQ7+CES*ESQ7KE23*E23Q7(MI+CEST* 

1 ESTQ7(M)|*RSL«-QPR< 7, Ml 

90 CONTINUE 

I F0=0 

DO 60 L = 1 , NH 
C E91 3=0 . 0 
C E92 3=0 .0 


DYNC7950 
DYNO-7960 
DYN07970 
DYN07978 
DYNC7980 
DYN07990 
DYN08000 
DYN08C03 
DYN08008 
DYN08010 
DYNC8020 
DYNO 8028 
DYN08030 
DYN08090 
DYNO 8050 
DYNO 8060 
DYN08070 
DYNQ80B0 
DYN08082 
♦DYN08100 
DYN081 10 
DYNC 8120 
DYN08130 
DYN 08 190 
DYN08150 
DYNC 81 52 
+DYN08170 
DYNC8180 
DYN08190 
DYN08193 
DYNC8200 
+DYN082 10 
DYN08220 
DYN08230 
DYN08290 
DYNO 82 50 
+DYN08260 
DYN08270 
DYN08280 
DYN08290 
DYNC83CO 
DYNC8310 
DYNO 83 1 3 
DYN08320 
0YN08328 
DYN08330 
DYN08390 
DYN08350 
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0108 

C 


LL=IHARM(L) 

DYN08360 

DYN06368 

0109 



DO 50 1=1, NH 

DYN08370 

0110 

C 


I I = I HARM! I ) 

DYN08380 
DYNO 8388 

0111 



DO 50 J = 1 , NH 

DYN08390 

0112 



JJ=IHARM( J) 

DYNO 8 400 

0113 



IPJ=II+JJ 

0YNC8410 

0114 

C 


IM J = l ABS 1 1 I-JJ) 

DYN08420 
DYNO 84 2 8 

0115 



DO 50 K=1 , NH 

DYN08430 

0116 



KK= I H ARM! K ) 

DYNO 8440 

0117 



KPL=KK+LL 

DYNO 8450 

0118 



KML=I ABSIKK-LL) 

DYN08460 

0119 



IF ( IPJ.NE.KPL.ANO.IPJ.NE.KML.AND. I MJ . 

DYNC8470 



1 

NE.KPL.AND. IMJ.NE.KML ) GO TO 50 

DYN08480 

0120 



I F0= I FO+1 

DYN08490 


Cl 


COMPUTE COEFFICIENTS AND FOURTH ORDER Q-PRIMES 

DYN08492 

0121 



F 0R = ( FN1J1 ( 11 ) *CC1*2.0*GGI>*E23< I )*E 13IK ) 

DYN08510 

0122 



CE413=CC1*E13( I)*E13<J)*E13(K)*CCCC(IFO)*FOR*E23(J)* 

DYN08520 



1 

SSCC ( I FO ) +CE413 

DYNC8530 

0123 



CE423=CC2*E23( I)<‘E23(J>*E23<K)*SSSS(lFO)*FOR*E13(J)* 

DYN08540 



1 

SCCSI IF0J+CE423 

DYNC8550 

0124 

C 

50 

CONTINUE 

DYN08560 
DYNO 8 563 

0125 



QPR ( 1,L»=QPR(1,L)+RSL*(CE413*E13Q1*CE423*E230HL ) 1 

DYNC8580 

0126 



QPR ( 2 ,L) = OPR (2 ,LH-RSLMCE4 2 3*£2 3Q2> 

DYN08590 

0127 



QPR( 3,LI=QPRI3,L)+RSL*(CE413*F13Q3*CE423*E23Q3(L > ) 

DYNO 8600 

0128 



QPR I 5,L)=QPR<5,LI+RSL*(CE413*E13Q5+CE423*E23Q5(L) » 

DYN086 1 0 

0129 



QPR(6,L)=QPR16,LM-RSL*(CE423*E23Q6) 

DYNO 862 0 

0130 



QPR I 7 ,L ) =QPR (7,L> + RSL*(CF413*E13Q7*CE423*E23Q7(L) ) 

0YN0863O 

0131 


60 CONTINUE 

DYN08640 


C 



DYNC-8643 


Cl 

THERMAL E FF EC TS//N01 90 ) 

DYN08645 

0132 


IF 

( ITELF.EQ.O) GO TO 90 

DYN08650 


Cl 

UPDATE COEFFICIENTS AND Q-PRIMES 8Y INCLUDING THERMAL DEFECTS 

DYNO 8652 

0133 


I TH = 0 

DYN08660 

0134 

C 

RL 

=RM*ARL 

DYN08670 
DYNO 8678 

0135 


DO 

8 0 M = 1 , NH 

DYN08680 

0136 



C E 13 = 0 . 0 

DYN08690 

0137 



CE23=0.0 

DYN08700 

0138 

C 


K = IH ARM ( M ) 

DYNO 87 1 0 
DYNO 871 8 

0139 



DO 70 1=1, NH 

DYN08720 

0140 

C 


I 1 = I HARM { I > 

0YN08730 
DYNO 8738 

0141 



DO 70 J=1 , NH 

DYN08740 
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0142 


JJ=I HARMI J ) 

DYNC 8750 

0143 


IPJ=II+JJ 

DYN08760 

0144 


I M J= 1 1 - JJ 

DYN08770 

0145 


IF l IPJ.NE.K.AND. IABSI IMJJ.NE.K) GO TO 70 

DYN08780 

0146 


THT = TH ( I lfJ«l) + (TH( I 1,J*2)-TH{ I l, J, 11 ) * I TIME-TO 1 / ( T 1-TQ J 

DYN08790 

0147 


I TH= I TH+1 

DYN08800 


c 

COMPUTE COEFFICIENTS 

DYNC88 1 0 

0148 


C£13=-CC1MALSI 1 1 DFNUl (1 1 ) *ALT( ID ) #THT*CCC ( I TH) *E 13C I ) +DYN08820 



1 CE13 

DYN08822 

0149 


CE23=-CC2* (ALT! I 1 DFNU2 ( I 1 ) *ALS ( I 1 ) J*THT*CSS1 ITH)*E23I I DDYN0 8830 



1 CE23 

DYN08832 

0150 


70 CONTINUE 

DYN0884O 


r 

w 


DYN08843 


C 

COMPUTE Q PRIMES 

DYN08850 

0151 


QPRI 1,M) =QPR ( 1 ,M> ♦IC£13*E13Q1+CE2 3*E2 3QHM> )*RL 

DYN08860 

0152 


QPR12,M)=QPR12,MDCE23*E23U2*RL 

DYN08870 

0153 


QPRI 3,M) =QPRI3,MDICE13*£13Q3*CF2 3*F23Q3I MD*RL 

DYN08980 

0154 


QPRI5,M)=QPR(5 I MDlCEl3*E13Q5 + CE2 3*E2 3Q5tMD*RL 

DYN08890 

0155 


QPR16,M)=QPRI6,M1 ♦CE23*E23Q6*RL 

DYN08900 

0156 


QPRI 7 ,MI=QPR(7,M)XCE13*E13Q7*CE2 3*E23Q7(MD*RL 

DYN08910 

0157 


80 CONTINUE 

DYNG8929 


C 


DYN08923 

0158 


90 CONTINUE 

DYN08930 

0159 


RETURN 

DYNC8940 

0160 


END 

DYN08950 
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( qpRinE ) 


ji=u 

jn=n+i 

ORO S RO(J11 )-RO(Jl ) 
02=Z(J11)-Z(J1) 
ARL-OSQRT{ ORO*0RO*OZ*O7 ) 
S1PK=0?.0/ARI 
COPH=0Z/ARL 

WHRO(Jl)tao(J]l))/?.o 


R2I-1 .0/{2.0»RM) 
ARCU'l.O/ARL 
ETQ3-R2I 
ETQ7‘R2I 
E23Q2=-R2i*COPH 
E23(J6*E23Q2 
EI301»ARCL1*S1PH 
tH03--ARai«CCRH 


£13QS--ARCU»SIPH 
E13Q7-ARCU*C0.°H 
I ESTQ2“-SI PH*R2 I -ARCL 1 
E STQ6*-S I PH*R2 ! +ARCL I 
ESQ1-E13Q3 
E5Q3--E13Q! 
ESQ5-E1307 


ESQ7-E13Q5 

CO2R»C0PH*R2I 


SL2R-SIPH*R2I 
CL2R*C0PH*R2 I 
S02R-SIPH-R2I 




XK-K 

E23ql(IH 

•$02R*XK 

E23q3(lH 

■-C02R*XK 

E23Q5(IH 

«S12R*XK 

E23Q7( IH 

— CL2R*XK 

ESTQT (IH)*E23Q3(IH) 


ESTQ3(IH)--E2301{IH) 
ESTQ5 IH)-E23g7(IH) 
ES7g7{IH>-E23Q5(IH) 


ET02(!H 

ETQ6(Ih' 


-R2I*XK 

ETQ2(IH) 


i:K-KEQ*(iH-l)*4* 

KK1-KX+1 

KK3“KK+3 
MC5*KiC*S 


( :H)=+ETQ { IH)*QN(KK2)+ETQ3*QN(KIC3)+ 
q 5 ; IH ) *C R ' KX5 )*ETQ 7*QN ( RK7 ) 
(;K;=ES3i*c , :(w:n*Esq3*qH;Kic3)-»E$Q5*qN 
y.E!+Esq;<-qt;(KX7) 

T( IH)=ES7Qi ( !H)*CN(KK1 )+ESTQ2*QN(KK2)+ 
TC!3( IH)»qM(KK3>+ESTQSCIH)«QN(KK5)+ES1TJ6! 
.’i;KK6)<ESTq7(IH)*QH(7.K7) 
3(I.H}=E13Qt*QM(KI51)+E13 Q3*QN < KK3 ) +E1 3QS| 
'! ( KZ5 } ^ E 1 2Q7*qr4 ( KK7 ) 

3( IH)-E23q! (IK)‘QK'U1 )+E23Q2«QN(KK2 )+ 
333!:P)*q:i((.K3)tE22q5(IH)*qN(KK5)+E23q6j 
(K3.5)--E23<37[ IH)*Q?i(KK7) 



ITH*0 
RSL-R«*ARL/2.d 



Q PRIME j 
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QPRIME 
Detail 
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i 


CE1J"-CC1*(AL5(I1)+FNU1 
!ll)*ALT(Ili)*THT*CCC(!THi 
*E13(I)*C£13 

C£23--CC2*(At.T ( 11 )+FNU2( II ) 
*ALS(Il))*m*CSS(ITH)*E23 
(1)*CE23 


0PR(l,L)-0PR(l.l.)*RSl.*(CE413*E1301tCE423 
*E1 3Q1+CE423*E23Q1 ( L ) ) 
0PR(2,L)*QPR(2»l)+RSL*{CE423*E23Q2) 

QP« O,L)-0PRC3 . L)+RSL*(CE4 1 3*£1 3Q3+CE423 
»E23<]3(1.)) 

0PR(S.L)*0PR(S.L)*RSL*(CE413*E1305*CE423 

*£2305(1)) 

0PR(6a)'0f’R(6.E)*RSL*(CE423*E23Q6) 

QPR(7.L)«0PR[7,I.)*RSL*(CE413*E13Q7*CE423 

*£2307(1)) 


G> 



2.34 


2.32 


^PR(l,M)-QPR(l.M)+( c El 3 *E13ql+CE23*E230l| 

QPS( 1 ,K)-qPR(2 .M)+CE23*E2302*RL 
QPR(3,H)»QPR(3,H)+(CE13*E13Q3+CE23*E2303( 
(N))*RL 

QPR(5.M)-Q?R(5.H)+(C£13*E13Q5*tE23*E23Q5 
(K))*RL 

0PR(6,M)»QPR(6,M)+CE23*E230€*RL 
0Pr(7.m)-0PR(7,«)*(CE13*£13Q7+CE23*E230^ 
(H))*RL 



30 '1 1 


CE13«0.0 

CE23«0.0 

K*IHARH{M) 


CONTINUE 

1 48 1 



RETURN 


2.38 


THT-TH(I1,J,1)*(TH(I1,J.2) 
-TH(U,J.1))*(TIKE-T0)/ 
(T1-T0) 

ITH-ITH*! 


0 
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0001 
0002 
000 3 
000 A 

0005 

0006 

0007 

0008 

0009 

0010 


0011 


C£ ( SETUP ) 
C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DESCRIPTION - TO OBTAIN THE SHELL DISPLACEMENTS BY SOLVING 
THE EQUATIONS OF MOTION. THESE DI SPLACEMFNTS ARE 
CHECKED IN MAGNITUDE FOR BEING TOO LARGE TO ALLOW 
STABLE SOLUTIONS. THE AXIAL DISPLACEMENT OF THE SECOND 
NODE IS CHECKED. 

INPUT ARGUMENTS. 

NH = TOTAL NUMBER OF HARMONICS USED IN THE DYNAMIC ANALYSIS. 

QN * DISPLACEMENTS AT TIME INCREMENT (N-l) UP TO STATEMENT 20 

AFTER STATEMENT 30 THIS MATRIX HAS BEEN CHANGED TO 
THE DISPLACEMENTS AT TIME STEP (N). 

THETA = MATRIX CONTAINING CIRCUMFERENTIAL ANGLES AT WHICH 

STRESSES AND/OR DISPLACEMENTS APE TO BE CALCULATED. 

OUTPUT ARGUMENTS. 

LARGE = CONSTANT WHICH CONTROLS TERMINATION OF THE PROBLEM 
IF DISPLACEMENTS BECOME EXCESSIVE. 

QLOAD = RIGHT-HAND SIDE OF THE DYNAMIC EQUATIONS OF MOTION 
BEFORE CALLING SOLVEQ. 

EXTERNALS. 

CALLED BY 


CALLS 


MAIN 

NLTERM 
H0U8QN 
H0UBQ1 
I NPUT 


SUBROUTINE SETUP ( I T AM ,T I ME , L ARGE ) 

IMPLICIT REAL*8 (A-H.O-Z) 

COMMON /SLVEEQ/ XN I 6550 ) , QLOA D( 204 I 

COMMON /GS/ QN ( 1020 , QNl 1 1020 ), FORCE ( 2040 ) ,QP( 1020 1 , QPH 1020 ) . 

1 QN2 l 1020 ) 

COMMON /CONST/ NH f NELEMS , NNODES ,NS I Z £ , NPRNTQ , NEQ , NEQT , N , NN , NHNS, 
1 DT2,NPRNTL,NPRNTF,IOELF,IDCOE 

COMMON /GCO/ CC1,CC2,001 ,0D2,GG1,GG2 
COMMON /THETAS/ THET A ( 2D > , NTHET A , NCLC ST , NSTR S S 
COMMON /PRINT/ I PR I NT , NO I T , LL 
COMMON /HARM/ NHP,IHARM(5> 

COMMON /RESTRT/ I RSTRT,NPRNT , NPRN I T , I TP , T I ME P , DELTEP 
Cl IF NOT FIRST POINT .THEN. CALCULATE GENERALIZED NONLINEAR LOADS AND 
C1C STRESS RESULTANTS 

IF ( ITAM.NE.LL) CALL NLTERM ( I T AM ) 

C 1 DO PROCESS HARMONICS 
C 


DYN05662 
DYN05664 
DYNO 5666 
DYN05668 
DYN05670 
DYN05672 
DYNO 5674 
DYNC 5676 
DYNC 5678 
DYNC5680 
DYNO 5682 
DYNC 5684 
DYN05686 
DYN05688 
DYN 05690 
DYN05692 
DYNC 5694 
DYN05696 
DYNO 5698 
DYN05700 
DYNO 5702 
DYNC 5704 
DYNC 5706 
DYN05708 
DYN05710 
DYNO 571 2 
DYN0571 4 
DYNO 5716 
DYN057 1 8 
DYNC 5720 
DYNO 5722 
DYNO 5724 
DYN05726 
DYNO 572 8 
DYN05730 
DYNO 5732 
DYNC 5734 
DYNC 5736 
DYNO 573 8 
DYNO 5740 
DYN057.50 
DYNO 5760 
DYNC5770 
DYNO 577 2 
DYNO 5774 
DYNC582C 
DYNO 5822 
DYNO 582 8 
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0012 


DO 90 I H= 1 * NH 

DYN05830 

0013 


KY=IHARM{ IH) 

DYN05640 

0014 


NN=NSIZE*( IH-1 1 

DYNC5R50 

0015 


N = NEQY< IH-1) 

DYN05860 


Cl IF 

NOT FIRST POINT .THEN. SET UP EQUATIONS FOR CALCULATING 

DYN05862 


C1C 

DISPLACEMENTS AT EACH T I MF INCREMENT EXCEPT THE FIRST 

DYN05864 

0016 


IF (ITAM.NE.LL) CALL HQURQN (KY.IHI 

DYN05870 


Cl IF 

FIRST POINT .THEN. SET UP EQUATIONS FOR CALCULATING DISPLACE- 

DYN05872 


C1C 

MENTS AT FIRST TIME INCREMENT AND PREPARE COEFFICIENT 

DYN05874 


C1C 

MATRICES 

DYN05876 

0017 


IF ( ITAM.EQ.LL) CALL H0U8Q1 (KY.IHI 

DYN05880 

0018 


I T = I TAM- ( I TAM/ IP R I NT)* I PRINT 

DYN05890 

CO 1 9 


IF ( ITAM.EQ.NOIT) GO TO 10 

DYN05900 


Cl 

FIRST TIME THRU WITH PRINT REQU IR EMENTS/ /NO ( 90 ) 

DYN05902 

0020 


IF (IT.NE.O.AND.ITAM.NE.l) GO TO 90 

DYNC5910 

0021 

10 

IF ( NPRNTQ.FQ.O) GO TO 9C 

DYN05920 

0022 


TPRNT=TIME*10G0000. 

DYN05930 

0023 


WRITE (6,110) ITAM.TPRNT 

DYNC5940 

0024 

c 

WRITE (6,120) KY 

DYN05950 

DYN05958 

0025 


DO 20 1=1, NNODE S 

DYNC5960 

0026 


K = <,*(I-1)*N 

DYN05970 

002 7 


WRITE (6,130) I , (QN (K+J ) , J=l , 4 ) 

DYNC5980 

0028 

20 

c 

CONTINUE 

DYN05990 
DYNC 5993 


C 1 

INTERMEDIATE HARMONIC //YES ( 80 ) 

DYN05995 

0029 


IF ( IH.NE.NH) GO TO 80 

DYN 06000 

0030 


IF (NH.EQ.l) GO TO 80 

DYN06010 


Cl 

CALCULATE AND PRINT DISPLACEMENTS AT OESIRED CIRCUMFERENTIAL 

DYNC 6012 


C1C 

C 

ANGLE 

DYN06014 

DYN06048 

0031 

C 

DO 70 I T=1 .NTHETA 

DYN06050 
DYNC 605 8 

0032 


00 30 1=1, NEQ 

DYN06060 

0033 


QLOADI I ) =0.0 

DYN06070 

0034 

30 

CONTINUE 

DYN66072 


C 

C 


DYN06C75 

DYN06078 

0035 


DO 59 JH= 1 , NH 

DYNC6080 

0036 


N = NE Q* ( JH- 1 ) 

DYNC6090 

0037 


XIH1=IHARM( JH) 

DYN06100 

0038 


SN=DSIN(XIH1*THETA(IT) ) 

DYN06110 

0039 


CS=DCOS(XIHi*THETA( IT) ) 

DYN06120 


c 


0YN06128 

004 0 


DO 50 11=1 .NNODES 

DYN06130 

0041 


K = 4* ( I l-l ) 

DYN06140 

0042 


NPK=N*K 

DYN06150 


c 


DYN061 58 
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0043 



DO 50 J=l,4 


DYN06160 

0044 



IF (J.EQ.2) GO TO 40 


DYNC6170 

0045 



QLOAD ( K+J I =QLOAO( K+J M-QN (NPK + J >*CS 


DYN061 80 

0046 



GO TO 50 


DYN06190 

0047 


40 

QLOAD(K+JI=QLOAD(K+J >+CN(NPK*J >*SN 


DYNC6200 

004 8 


50 

CONTINUE 


0YN0621O 


C 




DYN062 1 3 

0049 



WRITE (6,110) I TAM , TPRN T 


DYN06220 

0050 



TH£TA1=THETA( IT ) *1 80./3 . 14159 


DYN06230 

0051 



WRITE (6,140) THETA! 


DYN06240 


C 




DYN06248 

0052 



DO 60 1=1, NNODE S 


DYN06250 

00 5 3 



K = 4*( I — 1 ) 


DYN06260 

0054 



WRITE (6,130) I , ( QLO AD(K+JJ,J=1»4) 


DYN06270 

0055 


60 

CONTINUE 


DYNC6272 


C 




DYN06275 

0056 


70 

CONTINUE 


DYN06280 


C 




DYN06283 


Cl 


DISPLACEMENTS TOO LARGE FOR STAB I L I T Y//NO ( 90 ) 


DYN06285 

005 7 


80 

IF ( DABS(QN(N+5) ) .LE.1.0E+4) GO TO 90 


D YN06330 

0C58 



LARGE=1 


DYN0634C 

0059 



WRITE (6,150) ITAM.TIME 


DYN06350 

0060 



RETURN 


DYN06360 

0061 


90 

CONTINUE 


DYNC6370 


c 




DYN06373 


Cl 


WRITE RESTART DAT A/ /NO ( 100 > 


DYN06375 

OC 62 



IF (NPRNT.EQ.O) GC TO 100 


DYN06380 

0063 



I T 1 = I TAM- ( I TAM/NPRNIT)*NPRNIT 


DYN06390 

0064 



IF ( NPRNT.EQ. l.AND. IT1.EQ.0) CALL INPUT (31 


DYN06400 

0C65 


ICO 

RETURN 


DYN06410 


c 




DYN06420 

0066 


110 

FORMAT (1H1 ,30X,6HITAM = , I 5 ,5 X , 6HT I ME =,F12.4,13H 

MICROSECONDS//) 

DYN0643C 

0067 


120 

FORMAT ( 36X ,22HUI SPLACEMENTS OF NODE S/38 X , 9HHARM0N IC ,15// 

DYNC6440 




l 6 X, 8 HNODE NO. ,6X , 5HA X I AL ,1 3X , 1 C HTANGENT I AL , 1 1 X , 6HR AD I AL , 

DYN06450 




1 13X,7HANGULAR//I 


DYN06452 

0068 


130 

FORMAT (110,4020.8) 


DYNC 6460 

0069 


140 

FORMAT ( 25X, 3 4HDI SPLACEMENTS OF NODES AT THETA = 

9 F 8* 3 1 

DYN06470 




l 9H 0EGREES/38X.13HALL HARMONICS/ 


DYN06480 




1 2 X, 8HN0DE NO. ,9 X , 5HAX I AL , 12 X , 10HT ANGENT I AL , 1 2X , 6HR ADI AL , 

DYN06490 




1 1 3 X , 7H ANGUL AR// ) 


DYN06492 

0070 


150 

FORMAT ( 1H1 ,5X,4HITAM,I5,5X,4HTIM6, E12.5// 


DYN06500 




l 6 X, 2 2 HEX EC UT ION TERMINATED 


DYN06510 




1 33H DISPLACEMENTS GREATER THAN l.E*4) 


DYN0651 2 

0071 



END 


DYN06520 
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PAGE 0001 


0001 

0002 

0003 

0004 

0005 

0006 
0007 


0CC8 
OC 09 
0010 
001 1 


0012 

0013 

0014 

CO 15 
0016 
0017 
C01 8 
0019 
00 20 


CEISOLVEQ) 

C 

C DESCRIPTION - TO SOLVE THE SET OF SIMULTANEOUS LINEAR 

C EQUATIONS USING A MODIFIED GAUSS ELIMINATION TECHNIQUE 

C WHICH TAKES INTO ACCOUNT DIAGONAL SYMMETRY OF THE 

C SYSTEM. THIS ROUTINE WILL ACCEPT ONLY SPECIAL BANDED 

C MATRICES II. E., FORMED BY OVERLAPPING SU BMATRI CE S » . 

C ELEMENTS OF THE UPPER 8AN0 ARE STORED IN A 1-DIMENSIONAL 

C ARRAY BY COLUMNS. ALL ZEROS THAT FALL OUTSIDE OF 

C THE SUB-MATRICES ARE SUPPRESSED. 

C 

C INPUT ARGUMENTS. 

C IH = HARMONIC KEY. 

C 

C OUTPUT ARGUMENTS. 

C SPR = ALIAS FOR QLOAO. 

C 

C EXTERNALS. 

C CALLED BY 

C H0UBQ1 

C HOUBQN 

C 

SUBROUTINE SOLVEQ IIH) 

IMPLICIT REAL*8 (A-H.O-ZI 
COMMON /SLVEEQ/ SPA 1 6550 ), SPR 1 204 1 

COMMON /CONST/ NH , NELEMS , NNODES ,NS I ZE ,NPRNTQ ,NEQ»NEQT , N, NN , NHNS, 
l 0T2,NPRNTL,NPRNTF,IDELF,I0C0E 

COMMON /PRINT/ I PP I NT ,N0 1 T ,LL 
COMMON /CYCLF/ ITAM 
DIMENSION At 13101 , RI204 I 
Cl GAUSSIAN ELIMINATION PASS 

C 

DO 10 I = 1 > NS I ZE 
N NPI =NN+ 1 
AID =S PA I NNP I ) 

10 CONTINUE 
C 
C 

DO 20 1=1, NEC 
RID =S PR 1 1 I 
20 CONTINUE 
C 

IF ( ITA M.GT. I LL+-1) ) GO TO 100 
KEY=2 

At 2 ) =A( 2) / A 1 1 ) 

A(3)=A{3)-A(2)*A(2)*A(1» 

A I 5 ) =AC 51— A(4)*AI 21 
A(8)=A(8)-A(7)*AI2J 


DYN11242 
DYN1 1244 
DYN1 1246 
DYN 1 1248 
DYN11250 
DYN 1 1 2 52 
DYN 1 1 2 54 
DYN1 1256 
DYN1 1258 
DYN11260 
DYN 11262 
DYN 1 1264 
DYN 1 1 26 6 
DYN 1 1268 
DYN11270 
DYN 1 1 27 2 
DYN 1 1274 
DYN1 1276 
DYN11278 
DYN11280 
DYN 11282 
DYN1 12R4 
DYN112B6 
DYN1 1288 
DYN1 1290 
DYN 1 1 29 2 
DYN1 1294 
DYN1 1296 
DYN1 1300 
DYN1 1310 
DYN 11312 
DYN1 1388 
DYN11390 
DYN1 1400 
DYN1 1410 
DYN 11412 
0YN1 1415 
DYN1 1418 
DYN 1 1420 
DYN1 1430 
DYN 1 1432 
DYN 1 1435 
DYN1 1440 
DYN11450 
DYN11460 
DYN1 1470 
DYN1 1480 
0YN1 1490 


J-3.103 



FORTRAN IV G LEVEL 20 


SOL VE Q 


DATE = 72353 


11/03/29 


0021 

A ( 4 ) =A(4)/Am 

0YN11500 

0022 

A ( 5 1 =A( 5) / A( 3 ) 

OYN11510 

0023 

A (6) =A(6)-A(4 )*A(4)*A(1)-A{5> *A(5)*A<3) 

DYN1 1520 

0024 

A(9)=A(9)-A<7)*A<4)-A<8)*A<5) 

DYN1 1530 

002 5 

A(7)=A(7)/A<1) 

DYN11540 

002 6 

A(8) =Al 8 ) / A ( 3 ) 

DYN1 1550 

0027 

A ( 9 ) =A( 9 I / A ( 6 1 

DYN 1 1560 

1028 

A ( 10 ) =A ( 10 ) -A ( 7 ) *A ( 7 t * A ( 1 ) - A < 8 )* A ( 8 ) * A ( 3 ) - A ( 9 ) * A ( 9 ) * A < 6 ) 

0YN11570 

0C29 

R(2I=R( 2)-R(l)*A(2> 

DYN1 1580 

CC30 

R<3)=R(3>-R(1>*A<4)-R<2) *A<5) 

DYN 1 1590 

0031 

R(4)=R{4)-R<1)*A(7)-R<2)*A<8)-RC3)*A(9) 

DYN 1 1600 


C 

DYN116C8 

0032 

DO 90 K=l , NELEMS 

DYN 11610 

0033 

I =11 ♦( K- 1 1 *26 

DYN 1 1620 

0034 

J = 5 + ( K- 1 ) *4 

DYN 1 1630 

0035 

GO TO (40,301 , KEY 

DYN 1 1640 

00 36 

30 A M 10 =A ( I — 1 0 1 

DYN 1 1650 

0037 

AM9=A( I-9» 

DYN1 1660 

0038 

AM8 = AU-8) 

DYN 1 1670 

0C39 

AM7=A< 1-7) 

DYN1 1660 

0040 

AM6=A< 1-6) 

DYN1 1690 

0041 

AM5=A( 1-5) 

DYN 1 1700 

0042 

GO TO 50 

DYN11710 

0043 

40 A Ml0 = A ( I -22 ) 

DYN11720 

0044 

AM9=A< 1-17) 

DYN11730 

0045 

AM8=A ( 1-16) 

DYN11740 

0046 

AM7 = A( I — 1 1 ) 

DYN11750 

0047 

AM6= A ( I — 10 ) 

DYN1 1760 

0048 

AM5=A( 1-9) 

DYN1 1770 

004 9 

50 AM4= A ( I -4) 

DYN1 1780 

0050 

A M 3 = A { 1-3) 

DYN1 1790 

0051 

AM2=A< 1-2) 

DYN1 1800 

0052 

AM1 = A( I — l ) 

0YN1 1810 

0053 

AO=A ( I > 

DYN1 1820 

0C54 

A 1 =A < I + 1 ) 

DYN1 1830 

0055 

A 2 = A ( 1 * 2 ) 

DYN 1 1840 

0056 

A 3=A ( 1 + 3) 

DYN1 1850 

0057 

A4=A { I +4 ) 

DYN11860 

0058 

A 5=A ( I + 5 ) 

DYN1 1870 

0059 

A 6 = A ( 1+6) 

DYN1 1880 

0060 

A 7=A ( 1+7) 

DYN 1 1890 

0C6 1 

A 8 = A ( 1 + 8) 

DYN11900 

0062 

A9= A ( I +9 ) 

DYN11910 

0063 

A 10= A ( 1 + 10 ) 

DYN1 1920 

0064 

A11=A( 1+11 ) 

DYN11930 

006 5 

A12=A(I+12) 

DYN1 1940 

0066 

A13 = A( 1 + 13) 

DYN1 1950 

0067 

A14=Af 1+14) 

DYN1 1960 
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0068 


Al 5= A ( 1 + 15 I 

DYN11970 

0069 


Al 6= A ( 1 + 16 ) 

0YN11980 

0070 


A17=A< 1+17) 

DYN11990 

0071 


A 1 8= A ( 1 + 18) 

DYN 1 2000 

0072 


A19=A< 1+19) 

DYN 12010 

0073 


A20 = A( 1 + 20 ) 

0YN12C20 

0074 


A2l = A( 1+21 ) 

DYN12030 

0075 


A22=A( 1+22) 

DYN12040 

0076 


A23=A( 1+23) 

DYN 12050 

0077 


A24= A < 1+24) 

DYNl 2060 

0078 


A25=A( 1+25) 

DYN 1 2070 

C079 


A 1 =A1 -A0*AM9 

DYNl 2080 

0080 


A6=A6-A5*AM9 

DYNl 2090 

0081 


A12=A12-A11*AM9 

DYNl 2 100 

0082 


A19=A19-A18*AM9 

DYNl 21 10 

0083 


A2=A2-A0*AM7-A1*AM6 

DYNl 2120 

0084 


A7=A7-A5*AM7-A6*AM6 

DYNl 2 1 30 

008 5 


A13=A13-A11*AM7-A12*AM6 

DYNl 2140 

0086 


A20=A20-A18*AM7-A19*AM6 

DYN 12150 

0087 


A3=A3-A0*AM4-A1*AM3-A2*AM2 

DYNl 2160 

00 88 


A 8= A 8-A5*AM4-A6* AM3-A7*AM2 

DYNl 2170 

0089 


A 14= A14-A1 1* AM4-A12*AM3— Al 3*AM2 

DYNl 21 80 

0090 


A21=A21-A18*AM4-A19*AM3-A20*AM2 

DYNl 2190 

0091 


AC=AO/AM10 

DYN 1 2200 

0092 


A 1=A 1/ AM8 

DYN 12210 

0093 


A2=A2/AM5 

DYN 1 2220 

C094 


A4=A4-AC>*A0*AM10-A1*A1*AM8-A2*A2*AM5-A3*A3*AM1 

DYNl 2230 

0095 


A9=A9-A5*A0-A6*A1-A7*A2-A8*A3 

DYNl 2240 

C096 


A 15= A 15-A11*A0-A12*A1-A13*A2-A14*A3 

0YN12250 

0097 


A22= A22-A18*A0-A19*Al-A2O*A2-A21*A3 

DYNl 2260 

0098 


R ( J)=R< J)-R(J-4)*A0-RU-3)*Al-R.( J-2)*A2-R (J-1)*A3 

DYNl 2270 

0099 


A 5 = A 5/AM10 

DYN 12280 

0100 


A6=A6/AM8 

DYNl 2290 

0101 


A7=A 7/AM5 

DYNl 2300 

0102 


A 8=A8 /AMI 

DYNl 2310 

0103 


A9=A9/A4 

DYNl 2320 

0104 


A1C=A10-A5*A5*AM10-A6*A6*AM8-A7*A7*AM5-A8*A8*AM1-A9*A9*A4 

DYNl 2330 

0105 


A16=Ai6-A5*All-A6*A12-A7*A13-A8*A14-A9*A15 

DYNl 2340 

0106 


A23=A23-A5*A18-A6*A19-A7*A20-A8*A2l-A9*A22 

DYN 1 2350 

0107 


RlJ+li=R(J+l)-R(J-4)*A5-R(J-3)*A6-R(J-2 ) 4 A7-RI J— 1 1 * A8-R ( J ) *A9 

DYNl 2360 

0108 


A 1 1 = At 1 /AM 10 

DYN l 2370 

0109 


A 1 2= Al 2 /AM8 

DYNl 2380 

0110 


Al 3= Al 3/ AM5 

DYN 12390 

Oil! 


A14=A14/AM1 

DYN 12400 

0112 


Al 5= Al 5/A4 

DYNl 2410 

0113 


A16=A16/A10 

DYNl 2420 

0114 


A17=Ai7-All< t Ali*AMlO-A12< t Al2*AM8-A13*Al 3* AM 5— A 14* A 14* AMI- A 15* 

DYNl 2430 


1 

A15*A4-A16*A16*A10 

DYNl 2440 
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0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 


A24=A24-A11*A18-A12*A19-A13*A20-A14*A21-A15’*A22-A16*A23 DYN12450 

RCJ+2)=R< J+2 )-RCJ-4)*All-RCJ-3)*Al2-RCJ-2)*A13-RC J-1)*A14-R(J)*DYN12460 
A l 5— R C J+ 1 ) *A 16 DYN12470 

A18=A18/AM10 DYN 1 2480 

A 19 = A1 9/ AM8 DYN12490 

A2C=A20/AM5 DYN 12500 

A21=A21/AM1 DYN 1 2516 

A22=A22/A4 DYN12520 

A23=A23/A10 DYN12530 

A2 4= A24/A 1 7 DYN1254P 

A 2 5= A2 5-A1 8*A1 8* AM10-A 19*A 19 * AM 8- A20* A20* AM5-A21* A2 1* AM1-A22* DYN 12 550 
A22*A4-A23*A23*A10-A24*A24*A17 DYN12560 

RCJ+3)=R(J+3)-RCJ-4)*A18-R(J-3)< t Al9-R ( J-2 ) * A20-R C J -1 ) *A2 1-R ( J ) *DYN 1 2 570 



1 

A22-R ( J+l 1 *A23-RC J+2 J *A24 

DYN12580 

0126 


GO TO C 70,60) , KEY 

DYN 1 2590 

0127 

60 

At I-10)=AM10 

DYN 1 2600 

0128 


A ( 1-9) =AM9 

DYN 1 261 0 

0129 


A( I-8I=AM8 

DYN12620 

0130 


A ( 1-7) = AM7 

DYN 1 2630 

0131 


A ( I-6)=AM6 

DYN 1 2640 

0132 


AC I-5)=AM5 

DYN 1 2650 

0133 


KEY=1 

DYN12660 

0134 


GO TO 80 

DYN12670 

0135 

70 

At 1-22) =AM10 

DYN l 2680 

0136 


A C I - 1 7) =AM9 

DYN 1 2690 

0137 


AC I-16)=AM8 

DYN12700 

0138 


AC I- 1 1 ) = AM7 

DYN 1 2710 

0139 


AC I-10)=AM6 

DYN 1 2720 

0140 


A C 1-9) =AM5 

DYN 1 2730 

0141 

80 . 

AC I - 4 i = AM4 

DYN12740 

0142 


A( I -3 i = AM3 

DYN12750 

0143 


AC 1-2 ( =AH2 

DYN12760 

0144 


AC 1 - 1 ) = AMI 

DYN 1 2770 

0145 


A(I) =40 

DYN12780 

0146 


AC I ♦ 1 1 =A 1 

DYN 12790 

0147 


AC I *2 J =A2 

DYN 1 2800 

0148 


AC 1 + 3 ) = A3 

DYN 1 2810 

0149 


AC 1*4 j =A4 

DYN 12820 

0150 


AC 1 + 5 I =A5 

DYN 1 2830 

0151 


AC 1+6 j=A6 

DYN 1 2840 

0152 


AC 1+ 7) = A7 

DYN 1 2850 

0153 


AC I + 8 j = AB 

DYN 1 2860 

0154 


A ( I + 9 1 =A9 

DYN 1 2870 

0155 


AC 1+ 10 ) =A1 0 

DYN12880 

0156 


AC 1 + 1 1 )=A1 1 

DYN 1 2890 

0157 


AC 1+ 12)=A12 

DYN12900 

0158 


AC I + 1 3 ) = A1 3 

DYN12910 

0159 


AC 1+ 14 ) =A14 

DYN12920 
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0160 


A ( 1+ 15) =A1 5 

DYN 1 2930 

0161 


A ( I + 1 6 ) =A 1 6 

DYN 12940 

0162 


A ( 1 + 17) =A1 7 

DYN I 2950 

0163 


A ( 1+ 18 ) =A 1 8 

DYN 1 2960 

0164 


A ( 1+19) =A19 

DYN 12970 

0165 


A ( 1 + 20 ) =A20 

DYN 1 2980 

0166 


AII+21)=A21 

DYN12990 

0167 


A ( I + 22 ) =A2 2 

DYN 1 3000 

0168 


A ( 1 + 23 1 =A2 3 

DYN 1 301 0 

0169 


A ( I + 24 ) =A2 4 

DYN 1 3020 

0170 


A ( 1 + 25) =A2 5 

DYN13030 

0171 


90 CONTINUE 

DYN13032 


C 


DYN 1 3035 

0172 


GO TO 120 

DYN13040 

0173 


100 CONTINUE 

DYN13050 

0174 


R(2)=R(2)-R(1»*A(2) 

DYN 13060 

0175 


R(3)=R(3)-R(1)*AI4)-RI2)*AI5) 

DYN 1 3070 

0176 


R(4I =R(4)-R(1)*A{7)-R<2)*AC8)-R(3)*A(9I 

DYN1308C 


c 


DYN 13088 

0177 


DO 110 K=1 , NE LEMS 

DYN13090 

0178 


N=4*IK+ll-3 

DYN13109 

0179 


L=26*K-15 

DYN13110 

0180 


R (N) = RlNl-RIN-4)<‘AIL)-RIN-3)*AIL+lJ-RtN-2 ) * A I L + 2 J -R I N-l J * AIL + 3 ) DYN l 3120 

0181 


R(N+1)=RIN+1 )-RlN-4l*AlL+5)-RlN-3)*AIL+6)-R(N-2)*AIL+7)- 

DYN 13130 



1 R(N-l)*A(L + 81-R(NH‘A(L+9) 

DYN 1 3132 

0182 


R(N+2)=RtN+2I-RlN-4)*AtL+ll)-RIN-3)*AIL+12) _ RIN-2)*AlL+13)- 

DYN 13134 



1 RIN-1)*AIL+14)-P (N)*AIL+15)-RIN+1)* AIL + 16) 

DYN13136 

0183 


RlN+3)=RIN+3)-RlN-4)*AIL+18)-RIN-3)*AIL+19)-R<N-2)*AIL+20)- 

DYN l 3138 



1 RlN-i)*AIL+-21)-R<NH‘AlL+22>-RtN+l)*AtL + 23)-RIN+2)* 

DYN13140 



1 AIL+241 

DYN 13142 

0184 


110 CONTINUE 

DYN13190 


c 


DYN13193 

0185 


120 CONTINUE 

DYN1 3200 


Cl 

BACK SUBSTITUTIONS 

DYN l 3202 

0186 


N=26*NELEMS+10 

DYN13220 

0187 


M=INELEMS+1)*4 

DYN13230 

0188 


RIM) =RIM)/AIN) 

DYN 1 3240 

0189 


R ( M- 1 ) = R I M-l ) /A I N-8 ) -R (M ) *A( N- 1 1 

DYN13250 

0190 


RIM-2)=R(M-2)/AlN-15)-RIM-l)*AIN-9)-RlM)*A(N-2> 

DYN 13260 

0191 


R I M- 3 ) = R ( M-3) /A ( N-2 l ) -R( M-2 ) * A IN- 16 ) -RIM-1)* AIN-10 )-R{M )* AIN-3) 

DYN 13270 


c 


DYN13278 

0192 


00 150 K= 1 »NE LFMS 

DYN13280 

0193 


L=26*INELEMS+1-K)-15 

DYN 1 3290 

0194 


N=4*(NELEMS+l-K)-3 

DYN 1 3300 

0195 


IF I L— 1 1 ) 130,140,130 

DYN13310 

0196 


130 RlN+3)=RIN+3)/AlL-l)-RlN+4)*AIL+3 1 -R I N + 5 ) * A I L + S >-R I N+6) * 

DYN l 3320 



1 AIL+14) -R ( N+7 ) #A{ L+211 

DY N1 3330 

0197 


RIN+2)=RIN+2> /AIL-9I-RIN+3 ) * AI L-2 ) -R I N+4 ) * A I L + 2) -R I N + 5) * 

DYN13340 
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0199 


0200 

0201 

0202 

0203 

0204 


0205 


0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 


0214 

0215 


IV G LEVEL 20 


SOLVE Q 


DATE = 72353 


11/03/29 


PAGE 0006 


1 A(L*7)-R(N*6M'A(L+13)-R(N+7)*A(L+20) 

R(N+l)=R<N+l>/A(L-16)-R(N+2>*A<L-10)-R<N+3l*A{L-3>— R(N+4I* 

1 A(L«-l)-R(N + 5)*A(L+6)-R(N + 6)*A(L«-12)-R(N+7)*A(L + 19) 

R (N) =R(N)/A(t-22)-RIN+l )* A i L-17 ) - R< N + 2 ) * A ( L- 1 1 > -R< N+3 ) * A ( L-4) - 
1 RIN«-4)*A<L)-R<N*5 ) * A ( L + 5 ) -R ( N + 6 > * A < L-t- 1 1 l-RIN+7)* 

1 A (L + 1 8) 

GO TO 150 

140 RIN«-3) = R(N + 3)/A(L-l)-R(N«-4)<‘A(L-*-3)-R(N-*-5)*A(L+-8)-R (N+6>* 

1 AlL+14)-R(N+7t*A( L + 2 1 ) 

R(N+2J=R<N«-2)/A<L-5)-R<N+3)*AU-2)-R(N«-4>*A<L«-2)-R(N + 5)*A(L-*-7)- 
1 R(N + 6)#A(L« , 13)-R(N+7)$A{L+20) 

R(N*1) =R(N+1 ) / A{L-8)-R(N*2)*A<L-6)-R(N-*-3)*A(L-3)-RlN + 4) *AIL + 1 )- 
1 R(N«-5)*AIL«-61-R(N-t-6)*A{L + 12l -R( N +7 > *A ( L* 19 ) 

R (N> =R ( Nl/ AIL-10 I -R(N*1)* A ( L-9 ) -R ( N<- 2 ) * A ( L-7 )-R< N+ 3) * A ( L-4 >- 
1 R(N*4)*A(U-RIN+5)*A(L + 5)-R<N*6 > * A I L+ 1 1 > -R ( N *7 ) * 

1 A (L ♦ 18) 

CONTINUE 


C 

c 


150 


160 


170 


DO 160 1=1, NEQ 
S PR ( I ) = RI I ) 

CONTINUE 

IF { ITAM.NE. ( LL+ll ) RETURN 

DO 170 I =1 »NS IZE 
N NPI =NN+ 1 
SPAINNPI )=A( I ) 

CONTINUE 

RETURN 

END 


DYN13350 
DYN 1 3360 
DYNl 3370 
DYN13380 
DYNl 3390 
DYNl 3391 
DYN 13400 
DYNl 3410 
DYNl 3420 
DYNl 3430 
DYN 13440 
DYNl 3450 
DYN l 3460 
DYNl 3470 
DYNl 3480 
DYNl 348 1 
DYN 1 3490 
DYN 1 3493 
DYN 13498 
DYNl 35CO 
DYNl 3510 
DYN13512 
DYN 1 351 5 
DYN 13520 
DYNl 3528 
DYN 1 3530 
DYN 1 3540 
DYNl 3550 
DYN 13552 
DYN 1 3555 
DYNl 3560 
DYNl 3570 
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PASS 
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REPEAT 
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A 2 -A{2 /A 1 

A(3)-A(3)-A(2)*A(2)*A(1) 

A(5)-A(S)-A(4)*A(2) 

A(8)-A(S)-A(7)*A(2) 

A(4)-A(4)/A 1) 

A(5)-A(S)/A(3) 

A(5 -A(6)-A(4)*A(4)*A(1)-A(5)*A(S)*A(3) 

A!9)*Ai9)-A(7)*A(<S-A(8)*A(5) 

A7-A7/A1 

A(8)-A(8j/A(3j 

A(9)-A(9)/A(6) 

A(lC)-A!10)-A(7)*A(7)*A;i)-A(8)*A!8) 


10 


R(2)-R(2)-R(l 

)*A(2) 

R(3)-R(3)-R(l 

)*A(4)-R(2) 

*»(S) 

R(4)>R{4)-R(1 

)*A(7)-R(2) 

*A(8)-R(3)*A(9) 

n 



K-l 


90) 


I-11+(K-1)*26 
0®5+(K-l )*4 



CONTINUE 


R(2)-R(2)-R(1)*A(2) 
R(3)»R{3)-R(1)*A<4) 
R(2 *A{5) 

R{4 -R 4 -R(1)*A(7) 
Rm«A(ai-R13)»A(9) 


18 I 


K-l 


19 

N-4*(K*l)-3 
L-2o*K-15 


R{Nf*R(Nf-R(H-«)*A(l)-R(«-3| 
•A(L*li-R(N-2)*A(L*2)-R(ll-l 

*R(N)*A(L+9) 

R(:)-2i-R(N-2)-R(N.4)«Ag*l) 


20 


-R[!l-3i*A(H12)-R[N-2)*A| 
H3)-R(N-t])*A[l*l4)-ftlN 
*A(L+15)-R (fl*lj*A(L+16 
R( 9 * 3 )*«r 5 ** 


►20)-R(«-l)*A(U21)-R(N) 

•A(L«22)-R(H*l)tA(L*23) 

-R(N+2)*A(L*24) 


2.10 


AHIO-A(I-IO) 


AM10-AU-22) 

AK9*A{ 1-9) 


A**9“A(I-17} 

A:<3*A(I-8) 


AM3-A( 1-16) 

All7*A(I-7) 


W7-AU-11) 

AM6*A( 1-6) 


AK6-A{ 1-10) 

AM5«A(I-5) 


AM5-A(I-9) 


O 

1.23 


£ 



K'A A(I-4 
Af43»A(I-3 
AM?»A( I -2 
AM1-A(I«J 
A0 r A(I) 

A1 »A(I-0) 

A2»A(H2) 

A3«A(I+3) 

A4«A(H4) 

A5«A{ 1+5; 

A6-A 1+6 

a;«a(i+7) 

J-3.111 

24 1 

A8»A(I4S) 
A9«A{ 1*9) 
AIO^ADK 
A11«A 1+1 
A12=A( 1+12 
A13-A i+i: 
A14*A( 1+14 
A15»A(I+K 
A16«A( I+1C 
A17*A( 1+17 
A18=A( I+1E 
A19 e A(I+19 

i 

) 

) 

1 

| 

25 



26 


AM2Q«A20 r Al 8*AN7-A] 5*AM5 

A3 ° A3 - A0 * A.* !4 - At *AM3 -A2 * A: *2 

;£»;3-A5*Ay.4-A6*A::3-A7-A.72 

A1 4«A14-A1 1 *A»V4-A1 2*A.**3-A1 3*A>2 

A21 «A21 -A18*AM-A19*AM3-A20*A>G 

AD s A0/A. v .10 

A1-A1/A.V8 

A2°A2/AM5 

A4*A4-AO*AO*AM10-Al*A1*A’-t3-A2“A2*AM5-A3 

*A3*AM1 

A9 a A9 - A5 * A0- A6 *A1 -A7*A2-A8*A3 
A15*A1 5-A11*AQ-A12‘“A1-A13*A2-A14*A3 

27 


A22-A22-A1BM0-A1 9*A1 -A20*A2-A2 1 -A3 
R^]-RjJ^R(J-4)*A°-R(J- 3 )*Al-R(J-2)*A2 

A5«A5/A.M10 

A6*A6/A*18 

A7«A7/AM5 

A8»A8/AM1 

A9-A9/A4 

A10»AT0-A5*A5AM10-A6*A6*AM8-A7*A7*AM5- 

A8*A8*AH1-A9*A9*A4 

A16»A16-A5*A11-A6*A12-A7*A13-A8*A14- 

A9*A15 

1 

A23»A23-A5*A1 8-A6*Al 9-A7 *A20- A8*A21 - 
A9*A22 

R(J+l)*R(J+l)-R(0-4)*A5-R(J-3)*A6-R(J-2) 

*A7-R(J-1 )*A8-R(J)*A9 

A11«A1 1/AM10 

A1Z*A1 2/AI48 

A13»A13/A‘15 

A14*A14/AM1 

A15-A15/A4 

M6-A16/A10 

A1 7»A1 7-A1 1 *An*AM1 0-A12*Al 2*AM8-A1 3*A1 3 
•AM5-A1 4*A14*AM1 -AT 5*A1 5*A4-A1 6*A16*A1 0 

29 


A24*A24-A1 1 *A1 8-A1 2*A 

A15*A22-A16*A23 

l(J+2)-R(J+2)-R{J-4)« 

?)*A13-R(J-1 ) * A 1 4 - R { J 

A18=A1 8/AM10 

A19-A19/AM8 

A20=»A20/AM5 

A2 1 *A2 ] /AMI 

422-A22/A4 

A23-A23/A10 

A24=A24/A;7 

19-»13*A20-A14*A21- 

AI1-R(J-3)*A12-R(J- 

)*A1S-R(J+1)*A16 


30 


{A25 e A25-A18*A18*AM!0-A1 9* 
A19*AMa-A20*A20*A*5-A21* 
[A21 *AM1 -A22*A22*A4-A23* 
7\23*A10-A24*A24*A1 7 
[R{J+3) ,t R(J+3}*R(J-4)*A18- 
R(0-3)*A]9-R{J-2)*A20-R{J-, 
1 )*A21-R(0)*A22-R{JM )*A23| 
R(J*2)*A24 


2.1 
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A(1-22)*AN10 
At I-17)-AM9 
Af I-J6)-AM8 
• A(l-ll)-AH7 
A( I -10J-AN6 
A(I-9)-AM5 


A 

I-10J-AM10 

A 

I-9J-AH9 

A 

1-8 -AM8 

A 

I-7)-AK7 

A 

1-6) "AK6 

A 

I - 5 ) —AMS 


A(l-4)«AM4 
A(I-3)-Af'U 
A( I-2)=AM2 

a!i-i)-ami 

A(X)-AO 
A(Itl)-A1 
A(I+2)-A2 
A( J+31-A3 
A(!«4 -A4 
A(l+5)-A5 


A(I+6)-A6 
AU»7)-A7 
A(H8 -A8 
A( 1+9 ) -A9 
AU+10)-A10 
aii+iii-aii 
A(I*12)-A12 
A(I+13)-A13 
A(I+14)-A14 
A(I«15)-A1S 
A{ I+16)°A16 
A(I*17)-A17 


A(I*ia)-A18 
A(l*19)-A19 • 
At MO) M20 
A( 1+21 )-A21 
A( I+22)-A22 
A(I+23]-A23 
A( 1+24J-A24 
A j I+251-A25 


M . . 

R<r>3)*R(N+3)/A(l.-l)-MN*4 ) 

*A!L»3)-R(r>5)*Aa=C)-R(Ii* 

o)*A(L+14)-R(N*7)*A(L*21) 

A(N42)-R(N*2)/A(L-5)-R(ll* 

3)*A(L-2)-R(rH4)*A(U2)-R 

(llt5)*A(L*7)-R(H<C)*A(L+ 

13)-R(N+7)*A(l+20) 


_1_5 

R(N*1)-R(N*l)/A(L-8)-R(N<2) 

*A(L-6)-R(N+3)*A(L-3)-R(N+ 

4)*A(L41)-R(N«5)*A(L46)-R 

(N+fi)*A(L*12)-R(N»7)*A(L4l 

R(ll)-R(S)/A(L-10)-R(N4l)*A 

(L-9)-R(Nt2)*A(L-7)-Rjtl->3) 
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— 

— 

i*7)*Aa4io) 

KEY-1 


>■ 




!{Nt2)=R(IU2)/A(L-9)-R(N*3j*A(L-2)-R([i4 

l)*A(L*2)-R(ll*i)-A(L*7)-R(H«6)*A(L-H3)-R 


R(N*3)*R(N+3!/A(L-1)-R(m4)"A(L*3)-R(H4 

)*A(L+R)-r<(N*G)*A(l.*14)-R{l:*7)*A(L-t21) 

I}' . . . 

(M+7)*A{L-»20) 
ll(n*l)=R(N4l)/A(L-16)-R(N42)*A(l-10)-R(!l 
*3)*A(L-3)-R!Nt4)*A(L+l)-R(N»5)*A{L+$)-R 
(tH6)*Aa-U2)-R(M«7)*A{L*19) 
R(N)-R(N)/A(L-22)-R(NM)*A(L-17)-R(l»2) 
•A(U-n)-R(tH3)*A(L-4)-R(IH4)*A(L)-R(:i4 
5)*A(l>S)-R(lt*6)*A(L*ll)-R(N*7)*A(t.-tl8) 




n-26-j;eieks+io 

K-1NEIEMS+1 1*4 
*A(N-1) 

R{M-2)-R(N-2)/A(N-151-R(M- 
li*A[W-9 -R(M)*A(N-2) 

lR(m>A(N- li 


21 

s' 

1-1 


22 


< 

KNP1-NN+1 


23 1 

170 SPA 
(NNPI)-A(I) 


M 1 

I°I + 1 


25 

flAE.NSIZE^ 



NO 


( RETURN j 


12 

1-26*(NEIEMS+1 

-Kj-15 

H-4*(NEl£MS+l 

-K)-3 
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0001 
0002 
0003 
000 A 

0005 

0006 


0007 

0008 
OC 0 9 
0010 

0011 

0012 

0013 
00 1 A 

0015 

0016 


0017 


CE(STRESS) 

C 

C DESCRIPTION - TO CALCULATE THE MIDSURFACE STRESSES AND 

C STRESS RESULTANTS ON THE UPPER AND LOWER SHELL SURFACES. 

C 

C INPUT ARGUMENTS. 

C DTH = MATRIX OF FOURIER COEFFICIENTS FOR THE CIRCUMFERENTIAL 

C TEMPERATURE GRADIENT DISTRIBUTION. 

C IHARM = MATRIX OF HARMONIC NUMBERS FOR WHICH DISPLACEMENTS 

C AND/OR STRESSES WILL BE CALCULATED. 

C ITAM = NUMBER OF TIME CYCLE. 

C II PRINT FLAG FOR STRESSES. 

C NH TOTAL NUMBER OF HARMONICS USED IN THE DYNAMIC ANALYSIS. 

C NTHETA = THE NUMBER OF CIRCUMFERENTIAL ANGLES AT WHICH DISPLACE- 

C MENTS AND/OR STRESSES ARE TO BE CALCULATED. 

C TH MATRIX WHOSE ELEMENTS ARE THE FOURIER COEFFICIENTS 

C OF THE CIRCUMFERENTIAL TEMPERATURE DISTRIBUTION. 

C THETA = MATRIX CONTAINING CIRCUMFERENTIAL ANGLES AT WHICH 

C STRESSES ANO/OR DISPLACEMENTS ARE TO BE CALCULATED. 

C 

C EXTERNALS. 

C CALLED BY 

C NLTERM 

C 

SUBROUTINE STRESS (II, ITAM) 

IMPLICIT REAL*9 (A-H,0-Z) 

COMMON /EES/ ES(5),ET(5),EST(5),E13(51,E23(5) 

COMMON /CONST/ NH , NELEMS , NNODES ,NS I Z E , NPRNTQ , NEC, NEOT , N , NN , NHNS , 
1 DT2.NPRNTL,NPRNTF,IDELF,IDC0E 

COMMON /THETAS/ THE T A ( 20 ) , NTHET A , NCLCST , NSTRSS 
COMMON /GEOM/ F NUi ( 50 ) , FNU2 ( 50 ) , E l ( 50 > , E 2 ( 50 ) , G( 50 > , T ( 50 ) , 
l SINE (51) .COSINE (51) , S I NM( 50 ) ,COSM ( 50 > , R ( 50 ) , PH ( 50 ) , 

1 PHPI50) ,ARCL(50) 

COMMON /GCD/ CC I , CC2 , DOi , 0C2 , GG 1 , GG2 
COMMON /HARM/ NHP , I HARM! 5 ) 

COMMON /THE T/ TOT I ME , OELTE , T I ME ,T0 , T 1 

COMMON /QS/ QN(1020) , QNl ( 1020 ), FORCE ( 20 AO ), QP ( 1020 ), OP 1 ( 1020 ) , 

1 QN2 ( 1020 

COMMON /THER/ TH ( 50 ,5 , 2 ) ,DTH ( 50 , 5 , 2 ) , AL S ( 50 ) , ALT { 50 ) 

DIMENSION 8 STRMS ( 20 ) , BSTRMT ( 20 ) , BSTMST(20), BTTMST ( 20 ) , 

1 B STTMT ( 20) 

I TAM 1 = 1 TAM-1 

TM1=TIKE-DELTE 

TPRINT=TM1*10C0000. 

IF ( Il.EQ.l) WRITE (6,50) ITAMl.TPRINT 
C100 PROCESS ANGLES 
C 

00 AO 1=1, NTHETA 


DYN 13582 
DYN13584 
DYN13586 
DYN13588 
DYN 1 3590 
DYN 13592 
DYN 1 3594 
DYN13596 
DYN13598 
DYN 1 3600 
DYN 1 360 2 
DYN13604 
DYN13606 
DYN 1 3608 
DYN 13610 
DYN13612 
DYN 1 3614 
DYN 1 36 l 6 
DYN 1 3618 
DYN 13620 
DYN 1 362 ? 
DYN 13624 
DYN13626 
DYN 1362 8 
DYN 1 3630 
DYN13632 
DYN 13634 
DYN13636 
DYN13638 
DYN13640 
DYN 1 3642 
DYN 1 3650 
DYN13652 
DYN 1 3660 
DYN1 3670 
DYN136«0 
DYN1 3690 
DYN 1 3700 
DYN 1 3710 
DYN 13720 
DYN 1 3730 
DYN13780 
DYN13790 
DYN 1 3800 
DYN13810 
DYN 13812 
DYN 13818 
DYN 13820 
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CO 18 


ESU=0.0 

DYN 1 3830 

0019 


£ TU=0. 0 

DYN13840 

002 0 


ESTU=0.0 

DYN 1 3850 

0021 


E 1 3U=0. 0 

DYN 1 3860 

0022 


E23U=0. 0 

DYN13870 

0023 


CHI S=0. 0 

DYN13880 

0024 


CH I T=0. 0 

DYN 1 3890 

0025 


CHIST=0.0 

DYN13900 

0026 


C TH I S=0. 0 

DYN 13910 

0027 


C THI T = 0 .0 

DYN 1 3920 

CO 2 8 


C THI ST=0.0 

DYN1 3930 

C029 


E SUT =0.0 

DYN 1 3940 


Cl DO 

PROCESS HARMONICS 

DYN1 3950 


C 


DYN13958 

0030 


DO 10 I H=1 ,NH 

DYN13960 

0031 


X IH1 = IH ARM I IH) 

DYN13970 

0032 


CS=OCOS(XIH1*THETA< I ) ) 

DYN 1 3980 

0033 


SN=DSIN(XIH1*THETA< I 1 I 

DYN13990 

0034 


K=4MI1-1DNEQ*(IH-1) 

DYN14000 

C03 5 


THT=TH( Il.IH, D*<TH(I1,IH,2»-TH(I1,IH, l) ) * ( TI ME-TO > / l Tl-TO 1 

DYN14010 

0036 


DTHT=DTH(Il»IHtl)*’ (OTHI 1 1 , IH , 2 )-DTH( 1 1 , I H , 1 > ) *( T I ME-TO > / ( T1 

-DYN 14020 


1 

TO) 

DYN 14021 


Cl 

CALCULATION OF LINEAR STRAINS AND ROTATIONS 

DYN14023 

0037 


ESU=ESUtES(IH)*CS 

DYN14040 

0038 


ETU=ETU+ET I IH ) *CS 

DYN 14050 

0039 


ESTU=ESTU+EST(IH)*SN 

DYN14060 

0040 


E13U=E13U*-E13(IH)*CS 

DYN 14070 

0041 


E23U=E23U+E23(IH)*SN 

DYN140B0 

0042 


E SUT=ESUT+ALS( 1 1) *THT*CS 

DYN 1 4090 

0043 


E TUT=FTUT ♦ ALT ( l D *THT*CS 

DYN 14100 


Cl 

CALCULATION OF CHANGES IN CURVATURE 

DYN 1 4 102 

0044 


QB3=-QN(K«-1)*SINE( ID+ONI K«-3 )* COS I NE ( 11 ) 

DYN l 4 1 20 

0045 


QB7=-QN!K+5)*SIN£( 11*1 )*QN(K+7)*C0S INEl 11*1) 

DYN14130 

0046 


CHIS1=(QN<K+4)-QN(K+8) l/ARCLUD 

DYN14140 

0047 


CHIS2=ALSI I D *DTHT 

DYN 1 41 50 

0048 


CHIS=CHISMCHIS1-CHIS2) *CS 

DYN 1 4160 

0049 


CHIT1 = I-XIH1*E23( IHI-SINMl IU*E13( IHD/RC ID 

DYN 1 41 70 

0050 


CHIT2=ALT<I1)*0THT 

DYN14180 

00 51 


CHIT=CHIT* (CHI T 1-CH I T2 > *CS 

DYN 1 4 1 90 

0052 


CHIST1=IXIHI*E13( IHM-SINMII 1I*E23( I H ) -X I H 1* S INM ( I 1)*(QB3+ 

0YN14200 


1 

Q87 ) / ( 2 . *R III)) +XIH1* I Q87-0B3 ) / ARCL ( Il)+<QNlK+6J- 

DYN 142 10 


2 

QNIK+2) ) *COSM( 1 1 )/ ARCLI 1 1 ) - ( ON (K+6 ) ♦ON (K+2H * 

DYN 14220 


3 

SINMII D*(C0SM(I1I/(2.*R( 1 1 ) ) ♦PHPI 1 1 > / 2. ) )/Rt ID 

DYN14230 

00 53 


CHIST=CHIST*CHIST1*SN 

DYN1424" 

0054 


CTHIS=CTHIS»XIH1*(CHIS1-CHIS2)*(-SN) 

DYN14250 

0055 


CTHIT=CTHIT*XIH1*(CHIT1-CHIT2) *<-SN) 

DYN 1 4260 

0056 


C THIST = CTHI ST + XIH1*CHISTI«CS 

DYN14270 

0057 

10 

CONT INUE 

DYN 142 80 
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0 05 8 

0059 

0060 

00 61 
C062 

0063 

0064 

0065 
C066 

006 7 
0068 
0C6 9 

0070 

0071 
C072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 
OC 92 

0C93 

0C94 


C 

Cl 


Cl 


Cl 


Cl 


C 

c 


CALCULATION OF MIDSURFACE STRAINS 
EPS=ESU+.5*E13U**2-ESUT 
EPT=ETU+.5*E23U**2-ETUT 
EPST=ESTU+E13U*E23U 

CALCULATION OF STRESS AND MOMENT RESULTANTS 
STRNS=CC1*EPS+FNU1( 11 ) *CC1 *E PT 
STRNT=FNU2(I l) *CC2*EPS+CC2*EPT 
STRNST=GG1*EPST 

STRMS=DD1*CHIS+FNU1(I1 ) *001*0817 
STRMT=FNU2II 1 1 *DD2*CHIS+DD2*CHIT 
STRMST =GG2 *CHIST 

CALCULATE STRESSES ON THE INNER AND OUTER SURFACES 
CIST=1.0/T(I1> 

C2ST=6.0/T(I 1)**2 

BSU=C1ST*STRNS+C2ST*STRMS 

BTU=C1ST*STRNT*C2$T*STRMT 

BSTU=C2ST*STRMST+C1ST*STPNST 

BSL=C1ST*STRNS-C2ST*STRMS 

BTL=C1ST*STRNT-C2ST*STRMT 

BSTL=-C2ST*STRMST+C1ST*STRNST 

CALCULATE SHEAR RESULTANTS ANO PRINT OUTPUT INFORMATION 

STTRMT=FNU2(I 1) *002 *CTHI S«-DD2*CTH IT 

STTMST=GG2*CTHIST 

THETA 1=THET All 1*1 80./ 3. 14159 

IF (II. NE. 1) GO TO 20 

WRITE (6,60) II, THETAl, STRNS.STRNT.STRNST ,STRMS,STRMT, STRMST, 
1 BSU,BTU,BSTU,BSL,8TL,BSTL 

GO TO 30 

20 RAV=(R(Il)*R(Il-l)»/2. 

PAV=(PH( 11 ) + PH( I 1-1) ) /2. 

AAV=(ARCL< II )*ARCL ( Il-l))/2. 

SHRS = 1./RAV*( (R( 11) *STRMS-R( 1 1-1 ) *B$TRMS ( I ) ) /A A V + ( STTMST * 

1 BTTMST(I ) >/2.-DSIN(PAV)*(STRMT*BSTRMT(I>)/2. ) 

SHRT = 1./RAV*( ( R( 11 )*STRMST-R< 1 1-1 )*BSTMST( I ) ) /AAV* ( STTRMT+ 

1 B STTMT ( I ) )/2.+DSIN(PAV)*(STRMST+BSTMST(! ) )/2. ) 

WRITE (6,70) II, THETA1,STRNS,STRNT,STRNST,STRMS,STRMT, STRMST, 
l SHRS,SHRT,BSU,BTU,BSTU,8SL,BTL,BSTL 

30 BSTRMSI I >=STRMS 

BSTRMTt I ) =STRMT 
B STMST ( I ) = STRMST 
B TTMST( I )= STTMST 
BSTTMTd )=STTRMT 
40 CONTINUE 

RETURN 

50 FORMAT ( 1H1 , 3X » 6HI TAM = , I 5 , 3X , 6HT I ME =,F12.4,13H MICROSECONDS,// 


DYN14283 
DYN 14285 
0YN14300 
0YN14310 
DYN14320 
DYN 14 322 
0YN14340 
DYN14350 
DYN14360 
DYN14370 
0YN14380 
DYN 1 4390 
DYN14392 
0YN14410 
DYN14420 
DYN 14430 
DYN14440 
DYN 1 4450 
DYN 14460 
DYN 1 4470 
DYN 1 4480 
DYN 14482 
DYN14500 
DYN 14510 
DYN14520 
DYN 1 4530 
DYN14540 
DYN14550 
DYN 1 4560 
DYN14570 
DYN 1 4560 
DY N 1 4 590 
DYN 14600 
DYN 1 46 1 0 
DYN 14620 
DYN 1 4630 
DYN 14640 
DYN 1 4650 
DYN14660 
DYN14670 
DYN I 4680 
0YN14690 
DYN 1 4700 
DYN 14710 
DYN 14713 
DYN 1 4720 
DYN 1 4730 
DYN14740 
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PAGE OOOA 


0095 

0096 
3097 


1 

2 

2 

2 

2 

3 

3 

A 

A 

60 FORMAT 
l 

70 FORMAT 
END 


A7X.33HSTRESSES 
2 5X, 1 7HF0RCE R 
17HSHEAR RESUL 
19X,AHN< SI ,11X, 
1 1 X » 5HM ( ST ) ,10X 
53H NO ( DEG) 
51H ****** 

15X.A1H* SIGMA! 
A7H SIGMA! 

<IA,F8.2,611PD15. 

12H STRESSES ** 
I IA,F8.2,8!1PD15. 


AND STRESS RESULTANTS,/ 

E SUL T ANTS , 31 X , 1 8HM0MFNT RE SUL T ANTS , 1 8X, 
TANTS/ 

AHN! T ) , 11X.5HN! ST) , 10X ,AHM!S) ,11X,AHM!T) , 
, AHO! S ) ,11X,AH0!T(//12H ELEM THETA,/ 
***** OUTER SURFACE STRESSES 


INNER SURFACE 
S) SIGMA(T) 

S) SIGMA(T) 

A) *30H XXXX 

,6! 1PD15.A) ) 

A) »/ , 12H STRESSES ** , 6 ! 1PD1 5. A) ) 


STRESSES *****,, 

S IGMA ! ST ) » 

S IGMA ( ST ) */) 
XXXX ,/ 


DYN1A750 
DYN1A760 
DYN1A770 
DYN1A780 
DYN1A790 
, DYN 1 A800 
DYN1A810 
DYN1A820 
DYN1A822 
DYN1A830 
DYN1A8A0 
DYN1A850 
DYN1A860 
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17 





STEIS'CCl *EPS*EKU1 ( 1 1 ) *CC1 *E?T 
STF-'!T-f.'tt!2(lD*CC2*EPS*CC2*£?7 
STRKST-GCfEPST 

STRMS-D01 *CHIS«rtlUl ( 1 1 )*001 'CHIT 
STPJ<T-fHU2 (II) *D02*CHIS+DD2*CMT 
STRHST“GC2*CHIST 
CIST-1 .0/T(n) 

C2ST-6.0/T(!D**2 


STRESS 

Detail 
1 of 1 


J - 3 .119 


BSU«C1ST*STRN$*C2STRMS 
BTU-C1 ST*STRMT*C2ST*STRWT 
BSTU-C2ST*STRM!;T4C1 st*strnst 
8SL-C1 ST*STRIiS‘C2ST*STRMS 
BTL-C1 ST*STRNT-C2ST*$TRMT 
BSTL-C2ST*STR.MST+C1ST*STRNST 
STTRtTT "FNU2 ( II ) *DD2*CTHI S+D02*CTHIT 
$TTHST-GG2*CTHIST 
THETA1 «THETA{ I ) *1 80 . /3 . 1 41 59 



IrtT • TH ( 11 , 1 H , 1 ) ♦ {YhT I >,I H 7 
2}-TH{I1,IH.l))*(TIKE-TO) 
/(T1-7C) 

D7HT«DTK{ II , IH,1 )+(D7H(Il , 
IH,2)-DTH(I1 ,IH,1))*(TIM£- 
T0)/(T1-T0) 


26 


20 


RAV»fR(Il )+R(ll-l))/2. 
PAV-(PH(I1)*PH(n-1))/2. 
AAV»(aRCL{I1 J+ARCL 
( 11 - 1 ))/ 2 . 

SHRS-1 ./RAV*( (R(I1 )*STRMS 
-r{ii-D*3STr;:s(i))/aav+ 

( STTKST+BTTMST ( I ) 


27 


11 


ESU-ESl'rES(IH)*CS 
ETU=ETl'+ET(!H)*CS 
lSTU = ESTU+E$T{ ik)*$h 
E13'«J*E13'J+E13(IH)*CS 
E23'J*E23 , J+E23( IH)*SN 
ES'JT *ESUT+ALS( 1 1 )*THT*CS 
ETUT a ETUT+AL7(I1)*7HT*CS 


QB3»-Q.T(K+1)*$INE( II) 
Q37*-QiJ(K+5)*SINE(Il+t) 
CHISl*(Q"l( K+4 K+8 ) ) 

cm:s2=ais(ii)*d:ht 

chis=chis+(ck:si-chis2) 

CHITl-(-XIHl*E23{IH) 
CHIT2 a AL7( II )*DTHT 
CHlT«CHIT+{CHm-CHIT2) 


13 


CHISTl = (XIH1*E13( II }* 

E2?(IH)-XIHl*S:,T;(n)*(Q53+Q37) 
/{Z.*P.{ II ) )+X!H1 *(Q37-C33)/ 

ARCL ( M ) + ( Q?J ( K+6 ) -QN{ K+2 ) ) *C0SH 

{11 )/ap:cl(ii )-(q:;(K+6)+Qr:(K+2)) 
*si:«:(U)*{cos::(ii)/(2.*r(ii)) 

+PH?( 1 1 )/2 . ) )/R( II ) 
CH:S7=CHIS7*CHIST1*$H 
CTMIS=CTHIS+XIM1 *(CHIS1 -CHIS2) 

:thit=cthii4Xihi < (chiti-chit2) 

;CTHIST-CTHIST+XIH1 *CHIST1 *CS 



WRITE (6,60) II, 
TKETA1 .STRfIS.STRNT, 

f strnst.strhs.strmt, 

/STRKST.BSU.BTU.BSTU. 
aSL,8TL,BSTL 


SHRT-1 ./RAV*( (R( II )*STRySTJ 
-R(I1-1)*3S7KST(I))/AAV+ 
(STTR:T*3STTT-r:(Il}}/2.+ 
DSi:i( PAY ) * ( S7RMST+BS7XST 
( I ) )/2 . ) 


28 


f WRITE (6.70) II, 

/ THETAl.sTRNS .STRUT, 
/STRNST.STRXS.STRMT, 
STK'ST.SHRS.SHP.T.BSU, 
/ BTU ,8STU ,BSl ,BTL ,8 STLj 


8STRMS(n«STRMS 
BSTEMTjl -S7RMT 
BSTKST ( I J »STR.”ST 
BTTKST ( I ) "STRXST 
8STTKT ( I }*STTRMT 


22 I 40 


I- 

NUE 

23 


i-m 



(return ) 
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CE (TFORCE ) 
C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DESCRIPTION - TO CALCULATE THE LINEAR THERMAL LOADS ON 
THE SHELL STRUCTURE. 

INPUT ARGUMENTS. 

OF THE ARC LENGTHS OF THE ELEMENTS < S-D IR ECT I ON ) , 
VRRAY STEPPING PARAMETER, USED TO MODIFY CURRENT 
IF STORAGE FOR FORCE. 

OF SHELL ELEMENTS. 

OF HARMONIC NUMBERS FOR WHICH DISPLACEMENTS 
STRESSES WILL BE CALCULATED. 

DUMBER OF ELEMENTS USED TO IDEALIZE THE STRUCTURE, 
DUMBER OF HARMONICS USED IN THE DYNAMIC ANALYSIS. 

5 AT THE MIDDLE OF AN ELEMENT. 

WHOSE ELEMENTS ARE THE FOURIER COEFFICIENTS 
CIRCUMFERENTIAL TEMPERATURE DISTRIBUTION. 

OUTPUT ARGUMENTS. 

FORCE = MATRIX OF GENERALIZED FORCES DUE TO EXTERNAL LOADS AND 
TEMPERATURES. 

Q THERMAL COEFFICIENTS USED IN CALCULATING GENERALIZED 

LINEAR LOADS DUE TO THERMAL EFFECTS. 

QQ = GENERALIZED LINEAR LOADS DUE TO THERMAL EFFECTS. 

EXTERNALS. 

CALLED BY 

INPUT 


c 

ARCL 

= 

MATRIX 

c 

IB 

= 

FORCE 

c 



BLOCK 

c 

IELM 


NUMBER 

c 

IHARM 

= 

MATRIX 

c 



AND/OR 

r 

NELEMS 

= 

TOTAL 

c 

NH 

= 

TOTAL 

c 

PHP 

= 

DPHI /O 

c 

TH 

= 

MATRIX 

c 



OF THE 


Cl 


1 

1 


1 

1 


l 


SUBROUTINE TFORCE (IELM.IB) 

IMPLICIT REAL *8 <A-H,0-Z) 

COMMON /GEOM/ F NU1 1 50 ) ,FNU2 1 50 ) , El ( 50 ) , E2 ( 50 ) ,G< 50 1 ,T I 50 I , 

SINE! 51) .COSINE 1 51) ,SINM( 50) ,COSMt 50 ) , R t 50 ) , PHI 50 ) , 
PHPI50) , ARCL ( 50 ) 

COMMON /THER/ TH I 50 , 5 , 2 ) , DTHI 50 , 5 , 2 ) , ALS ( 50 ) , ALT I 50 ) 

COMMON /HARM/ NHP , I HARM ( 5 ) 

COMMON /CHALS/ AL ( 1 67 ) .CHECK I 6 , 8 ) 

COMMON /CONST/ NH.NELEMS .NNODES ,NS I Z E , NPRNT Q, NEQ, NEQT , N , NN, NHNS , 
DT2 .NPRNTL .NPRNTF , ID ELF, I DC HE 

COMMON /QS/ QN11020) , QN1 ( 1 02C 1 , FORCE ( 2040 ), QP 1 1 020 ), OP 1 ( 1020 ) , 

QN2 1 1020) 

COMMON /QUES/ 0(8) ,QQ(8) 

DIMENSION CESI4) 

LINEAR THERMAL LOADS 
P I = 3. 1 41 592 65 

CESI 1> = PI*EU IELM)*T( I ELM ) / ( 1 . -FNU1 1 IELM)*FNU2< IELM))*(ALS( I ELM)* 
FNU1 I IELM) *ALT< I ELM) ) 

CESI 2)=Pl*E2( IELM)*T(IELM)/(1.-FNU1( I ELM) MENU 2 1 IELM) ) * I ALT I I ELM ) ♦ 


DYN 1 6852 
DYN16854 
DYN16856 
DYN 16858 
DYN 1 6860 
DYN 16862 
DYN l 6864 
DYN16866 
DYN16868 
DYN1687" 
DYN 16872 
DYN 16874 
DYN 1 6876 
0YN16878 
DYN 1 6880 
DYN 16882 
DYN 16884 
DYN 1 6886 
DYN 1 6888 
DYN 1 6890 
DYN 1 6392 
DYN 16894 
DYN16896 
DYN 1 6898 
DYN16900 
DYN 16902 
DYN 1 6904 
DYN 1 6906 
DYN169C8 
DYN16910 
DYN 1 691 2 
DYN 16914 
DYN 1 691 6 
DYN 1 691 8 
DYN 1 6920 
DYN 16922 
DYN16924 
DYN 16928 
DYN 1 6930 
DYN 1 6940 
DYN L 6950 
DYN 16960 
DYN16970 
DYN16972 
DYN 1 70 10 
DYN 17020 
DYN17030 
0 YN 1 7040 
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00 1 A 
0015 


0016 

0017 

0018 

0019 

0020 
0021 
0022 
002 3 

0024 

0025 
002 6 

0027 

0028 

0029 

0030 

0031 

0032 

0033 


0034 


003 5 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 


1 FNU2( IELM) *ALS( IELM) ) 

CES( 3)=PI*E1( IELM)*T( IELM)**3/{ 12. *( 1.-FNU1I IELM)*FNU2( IELM ) ) )* 

1 ( ALS { IELM) + FNU1 ( I ELM > * ALT ( I ELM > ) 

CES(4)=PI*E2( IELM) *T ( IELM)**3/(12.*( 1.-FNU1I IELM)*FNU2( IELM) ) )* 

1 ( ALT ( I ELM) ♦FNU2 (I ELM)* ALSU ELM) ) 

C 

C CALCULATE PHPP(IELM) 

C 

IF ( IELM.EQ.l ) GO TO 10 

IF ( IELM.EQ.NELEMS) GO TO 20 

PHP P 1= ( PHP ( IELM)-PHP{ I ELM— ill /(ARCH IELM l+ARCLI IELM-1 ) )*2. 

PHPP2= ( PHP ( IELM+1)-PHP(IELM) ) / ( ARCL C I ELM ) *ARCL ( IELM+1 ) ) *2. 
PHPP=(PHPPl*PHPP2)/2. 

GO TO 30 

10 PHPP = (PHP(I ELM*1)-PHP(IELM))/(ARCL( IELM)*ARCL( IELM + 1) )*2. 

GO TO 30 

20 PHPP=(PHP( I ELM ) -PHP ( IELM-1 ) )/<ARCLl IELM H-ARC L( I ELM-1 ) )*2. 

30 CONTINUE 
IBP1 = IB«-1 
C 

DO 90 I H = 1 , NH 

KYP=IHARM( IH) 

Y KP = K YP 

IF (TH( IELM, IH.IBPD.EQ.O. ANC.OTH< IELM, IH, I8P1 ) .EQ.O ) GO TO 90 
0(1) = (-CES (1) *AL(4KCES (2 ) * AL ( 17 > ) *TH < I EL M, I H, I BP 1 ) +YKP** 2* 

1 CES(4)*AL(44)*DTH( IELM, IH, IBPl) 

Q(2) = (-CES(1)*ALI5)«-CES(2)*AL(18) )*TH ( I FL M, I H, IBPl >♦< YKP**2* 

1 AL ( 45 ) -AL ( 21 I )*CES(4)*DTH(IELM,IH, IBPl) 

Q(3)=(-CES(1) *AL (6J+CES (2 ) *AL( 19))*TH(IELM,IH,IBPl)+(-2.* 

1 CES(3)*AL( 1) +CES(4)*(YKP**2*AL(46)-2.*AL(22) ) >* 

1 DTH( IELM. IH, IBPl) 

Q(4)=(-CES(1) * AL { 7 ) +CES ( 2 ) * AL ( 20 1 )* TH< I EL M, I H, IBP 1 >♦ C-6. * 

1 CES( 3>*AL<2)+CES<4)*(YKP**2*AL(47)-3.*AL( 23) ) )* 

1 OTH( IELM, IH, IBPl) 

Q(5)=CES12)*AL<21)*TH(IELM,!H,IBP1)-(CES( 3)*AL(1)*PHPP«-CES(4)* 
1 AL (37) ) *DTH( IELM, I H, IBPl ) 

Q (6) =(CES« 1)*AL< 1 )+CES<2) *AL( 22) ) *TH( I E LM , I H , I BP 1 > - ( CES ( 3 ) * 

1 (AL(4)*AL<2)*PHPP)+CES(4)*AL(38> )*DTH( I ELM, I H, IBPl) 

Q(7l=CES(2)*AL<15)*YKP*TH(IELM,IH,IBPl>*CES(4>*AL(49)*YKP* 

1 DTH( IELM, IH, IBPl) 

Q<8)=CES(2)*AL(16)*YKP*TH(IELM»IH,IBP1)+CES(4)*AL(50)*YKP* 

1 DTH( IELM, IH, IBPl) 

IF (KYP.EQ.O) GO TO 40 
GO TO 60 
C 

40 DO 50 J=1 , 8 

0(J)=2.*Q(J) 

50 CONTINUE 


DYN1705C 
DYN 1 7060 
DYN17070 
DYN17080 
DYN17090 
DYN 1 7100 
DYN 1 7110 
DYN 17 120 
DYN 17130 
DYN17140 
DYN 1 7150 
DYN 17160 
DYN17170 
DYN 17180 
DYN 17190 
DYN17200 
DYN 17210 
DYN 17220 
DYN 17230 
DYN 17238 
DYN 17240 
DYN17250 
DYN17260 
DYN17270 
DYN17280 
DYN 1 7290 
DYN 1 7300 
DYN17310 
DYN1 7320 
DYN 1 7 330 
DYN17331 
DYN 1 7340 
DYN 1 7350 
DYN 1 7351 
DYN 1 7360 
DYN 17370 
DYN17380 
DYN1 7390 
DYN 17400 
DYN17410 
DYN17420 
DYN1 7430 
DYN 17440 
DYN 17450 
DYN1 7458 
DYN17460 
DYN17470 
DYN 17472 
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C 

C 


0099 


60 

DO 70 1=1,8 


0095 

C 


QQi I ) =0 .0 


0096 



DO 70 J=1 , 8 


0097 



Q 0 ( I ) =QQ ( I ) +CHE CK 

(J, I I*Q(J) 

0098 

c 

70 

CONTINUE 



c 




0099 



DO 80 1=1,8 


00 50 



J=9*{ IELM-lX-I + IIH-l 

)*NEQ+IB*NEOT 

OC 5 1 



FORCE(J)=FORCE(J)*QQ 

(I) 

0052 

c 

80 

CONTINUE 


0053 

c 

90 

CONTINUE 


0059 



RETURN 


C055 



END 
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DYN I 7475 
DYN17978 
DYN I 7480 
DYN 1 7990 
DYN17998 
DYN 1 7500 
DYN1 7510 
DYN 17512 
DYN 1 7515 
DYN 1 75 1 8 
DYN17520 
DYN 17530 
DYN l 7590 
DYN 17592 
DYN17595 
DYN 17550 
DYN 17553 
DYN 1 7560 
0YN17570 
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C tforcs 


1 


CALCULATE THE 
LINEAR THERMAL 
LOADS 

2 



( RtTURH ) 
















TFORCE 

Detail 

T) 1 of 2J-3.125 


PI-3.14159265 


CES( 1 J-PI-51 ( I £ LM ) 
*T(IELM)/(1 .-FHU1 
(IELHl*F!;U2(IELM): 
*(ALS(I£LH)*Fl;Ul 
( I£LM)*ALT( IELM) 1 

1 1 I 

EES(2)*PI*£2(IELM) 
*T(IELM)/(1 ,-FUUl 
(I£LM)*FUil2(I£LM); 
*(ALT(IELM)+FNU2 
(lELM)-ALS(IELW)) 


C£S(3)-PI*E1 ( IELM] 
*T(IELM)**3/{12.» 
£ 1 ,-FNUl ( IELM) * 
rHU2(IELH)))*ALS 

^yi?riivi (iaH) 


:ES(4)-Pi-E2£IELH 
'T(lE01}**3/(12.* 
(l.-FNUl(!ELfll» 
F1I'J2(I£LK)))-(ALT 
(IELH)-F:iU2(IELH) 
*ALSt IELM’ ‘ 


5»M-CC5(1 *AL 

(;)*CES(2)-AL(201) 

*TII(IEIM,IM.IBP1) 

mu 


Q(5)-CrS(2)-AL(21) 

•THllELM.lH.IBpI) 

P!IPP*£eS(4) j AL(37) 
*3TH( IELM, IH,1BPI } 


pmi 

IICLM.IH.IBrlj-CCS 
*D7H( IEL.M.IH.IDPI ) 


Q(7)-CES(2)*AL£15> 
*YKP-TH(IELM,IH. 
IBP) )+CES(4)*AL 

[49) -YKP-DTH( IELM, 
IH.IBP1) 

III I 

)(8)-CES(2)*AL(16) 
“YKP*TH(IELM,1H, 
IBP1 )+CES(4)*AL 

[50) -YKP*DTH(IELM, 
IH.IBP1) 


11 I 10 

?K??-(?HP(IELM+i; 

IELM) )/(ARCL 
( I£LK)+ARCL(IELM 
♦l))-2. 
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E(THCOE) 

DESCRIPTION - TO READ IN THE TEMPERATURE AND TEMPERATURE 
GRADIENTS FOR UTILIZATION IN COMPUTING THE THERMAL 
FOURIER COEFFICIENTS. 

INPUT ARGUMENTS. 

IB = FORCE ARRAY STEPPING PARAMETER, USED TO MODIFY CURRENT 

BLGCK OF STORAGE FOR FORCE. 

IELM = NUMHER OF SHELL ELEMENTS. 

IHARM = MATRIX OF HARMONIC NUMBERS FOR WHICH DISPLACEMENTS 
AND/OR STRESSES WILL BE CALCULATED. 

NH = TOTAL NUMBER OF HARMONICS USED IN THE DYNAMIC ANALYSIS. 

OUTPUT ARGUMENTS. 

DTH = MATRIX OF FOURIER COEFFICIENTS FOR THE CIRCUMFERENTIAL 
TEMPERATURE GRADIENT DISTRIBUTION. 

TH = MATRIX WHOSE ELEMENTS ARE THE FOURIER COEFFICIENTS 

OF THE CIRCUMFERENTIAL TEMPERATURE DISTRIBUTION. 


EXTERNALS. 

CALLED BY 


INPUT 


SUBROUTINE THCOE (IELM, IB) 

IMPLICIT REAL $8 IA-H.O-Z) 

COMMON /CONST/ NH,NELEMS,NNODES,NSIZE,NPRNTQ,NEQ,NEQT,N,NN,NHNS, 
1 DT2,NPRNTL,NPRNTF,IDELF,IDC0E 

COMMON /FRCE/ P ( 74) , R ( 74 ) , S ( 74 ) , THET B { 74 > 

COMMON /THER/ TH ( 5C « 5 ,2) • OTH (50,5,2) »ALS(50) , ALT ( 50 1 
COMMON /HARM/ NHP , I H ARM< 5 ) 

COMMON /TAPES/ NT, NO, NS 
IF ( I ELM.EQ. 1 ) I ELM2=0 
PI=3.14159265 

Cl FIRST ELEMENT//N0(3CI 

IF ( IELM. LE.IELM2.AN0. IELM. NE.l) GO TO 30 
IF ( NPRNTL. EQ.l .AND. IELM. EC. I ) WRITE (6,110) 

C 

CIS(IO) READ TEMPERATURE DISTRIBUTION 
C 

C READ INPUT DATA FOR CARD TYPE IX - D - 1 

READ (ND.120) I ELM1 , 1 ELM2 , NDP , ( THETB ( 1 1 , P ( I ) , R ( I ) , I = l ,NDP ) 
NOP2=2*NDP+l 


C 

DO 10 I F = l , NDP 

A NG= 360.0- THETB (NDP) 

KEY=NDP2-IF 

THETBt KEY) =ANG 


DYN 16 102 
DYN 16 104 
DYN 1 6106 
DYN 16108 
DYN161 10 
DYN 16112 
DYN 16114 
DYN 1 61 1 6 
DYN 1 61 1 8 
DYN 16120 
0YN16122 
DYN 161 24 
DYN16126 
DYN16128 
DYN16130 
DYN16132 
DYN 16134 
DYN 16136 
DYN16138 
DYN 16140 
DYN 16142 
DYN 16144 
D YN 1 6146 
DYN 1 6148 
DYN 161 50 
DYN 16152 
DYN 16154 
DYN 1 6156 
DYN16158 
0YN1616O 
DYN 1 61 62 
DYN16170 
DYN16220 
DYN 16230 
DYN 16232 
DYN16240 
DYN 16250 
DYN16260 
DYN 16262 
DYN 16280 
DYN 1 62 Q 0 
DYN 1 6300 
DYN16310 
DYN16318 
DYN 16320 
DYN16330 
DYN 1 6340 
DYN16350 
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0018 



P < KEY J = P{ I FI 

DYN16360 

0019 



R(KEY)=R(IFJ 

DYN1-6370 

0020 


10 

CONTINUE 

DYN16380 


C 



DYN16383 

0021 



IF (NPRNTL.EQ.il WRITE (6,130) IELM1 , 1 ELM2, ( P ( I) , R (I) , THETB ( I ) , 

DYN16390 



] 

l THETB( 1+1) ,1=1, NOP) 

DYN16400 

0022 



ND2=2*NDP 

DYN 16410 


C 



DYN16418 

0023 



DO 20 I DP=1 »N02 

DYN 1 6420 

0024 



T HE TB(I DP )=THETB(I DP )/57. 2957795 

DYN 1 6430 

002 5 


20 

CONTINUE 

DYN 1 6432 


C 



DYN 1 6435 

0026 


30 

CONTINUE 

DYN16440 


Cl 


CALCULATE THERMAL FOURIER COEFFICIENTS 

D YN 1 6442 


c 



DYN 1 644 8 

0027 



DO 100 IH=1,NH 

DYN 1 6450 

002 8 



K YP= IHARM( I H I 

DYN1646C 

0029 



YKP=KYP 

DYN16470 

0030 



PINT =0. 0 

DYN 1 6480 

0031 



R I NT=0. 0 

DYN 16490 

0032 



IF <NDP.EQ.il GO TO 70 

DYN 16500 

0033 



IF (KYP.GT.O) GO TO 50 

DYN16510 


c 



DYN 16518 

0034 



DO 40 1=1, NDP 

DYN16520 

0035 



P INT = PINT*P<n*(THET8( I *1J-THETB< I ) ) 

DYN16530 

0036 



RINT=RINT*R(I )*(THETBUU)-THETB< I ) ) 

DYN16540 

0037 


40 

CONTINUE 

DYN16542 


c 



DYN 1 6545 

0038 



PINT=PINT/(2.*PI) 

DYN16550 

OC 39 



R !NT=RINT/(2.#PI ) 

DYN16560 

0040 



GO TO 90 

DYN16570 


c 



DYN 1 6578 

C041 


50 

00 60 1=1, NOP 

DYN 1 6580 

0042 



X 1=THET8( I ) *YKP 

DYN16590 

0043 



X2=THETB( I 1 ) *YKP 

DYN16600 

0044 



PINT=PINT + P(IH'(0SIN(X2 )-DS IN ( X l ) ) / YKP 

DYN 1 66 1 0 

004 5 



R INT = RINT«-R(I )*(DSIN(X2)-DSIN(X1 ) )/YKP 

DYN16620 

0046 


60 

CONTINUE 

DYN 16622 


c 



DYN 1 662 5 

004 7 



P INT=PINT/PI 

DYN 1 6630 

0048 



RINT=RINT/PI 

DYN1 6640 

0049 



GO TO 90 

DYN16650 

OC 50 


70 

IF (KYP.GT.O) GO TO 80 

DYN 16660 

0051 



PINT=P(1) 

DYN16670 

0052 



R I NT=R ( 1 ) 

DYN 1 6680 

00 53 



GO TO 90 

DYN16690 

C054 


80 

P I NT=0. 0 

DYN16700 

0055 



R I NT =0. 0 

DYN16710 
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0056 


90 I BP1 

= I B+ 1 

DYN 16720 

0057 


TH< IELM,IH,IBP1)=PINT 

DYN >67 30 

005 8 


OTHt IELM.IH, [BP1)=RINT 

DYN 1 6740 

005 9 


100 CONTINUE 

DYN1 6750 


C 



DYN 1 675 3 

0060 


RETURN 


0YN16760 


C 



DYN 1 6770 

0061 


110 FORMAT 

( 1HI ,31X,47HTEMPERATURES AND THERMAL GRADIENTS ON, 

DYN 16780 



l 

10H STRUCTURE/// 

DYN16782 



1 

27X,11HTEMP£RATURE,10X,16HTHERMAL GRA D I ENT , 10X , 

DYN 1 6790 



2 

29HFR0M THETA TO THETA <0EGREES>//» 

0YN16800 

0062 


120 FORMAT 

(3I5/I 3F10.0) ) 

DYN 16810 

0063 


130 FORMAT 

(/,60X,11HELEMENT NO., I3,1H-,I2,// 

DYN16820 



1 

(28X,F9.3,15X,F10.3,16X,F7.2,2X,F7.2>) 

DYN16830 

0064 


END 


DYN 1 6840 
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PAGE 0001 


OCOl 
000 2 

0003 

0004 

0005 

0006 

0007 
OOC 8 

00 09 
0010 

0011 

0012 


C E ( TR 1 40R ) 

C 

C DESCRIPTION - TO CALCULATE THE VARIOUS TRIGONOMETRIC 

C INTEGRALS REQUIRED IN THE CALCULATIONS OF THE 

C GENERALIZED NONLINEAR LOADS. 

C 

C INPUT ARGUMENTS. 

C IHARM = MATRIX OF HARMONIC NUMBERS FOR WHICH DISPLACEMENTS 

C AND/OR STRESSES WILL BE CALCULATED. 

C NH TOTAL NUMBER OF HARMONICS USED IN THE DYNAMIC ANALYSIS. 

C 

C OUTPUT ARGUMENTS. 

C CCC = MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 

C COS( I* THETA) * COSIJ*THETA» * CDS(K*THETA> * DTHETA. 

C CCCC = MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 

C COS(I*THETA> * COS(J*THFTA» * COS(K*THETAI * 

C COS(L*TH£TAI * DTHETA. 

C CSS = MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 

C CnS(I*THETA) * S IN ( J*THETA t # S!N{K*THETA) * DTHETA. 

C SSC = MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 

C SIN(I*THETA) * SINI J*THETA) * COS ( K*THETA ) * DTHETA. 

C SSCC = MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 

C SINI I*THETA> * SINCJATHFTA) * COS(K*THETA> * 

C COS! L*THE T A I * DTHETA. 

C SSSS = MATRIX CONTAINING INTEGRALS FROM 0 TO 2*PI OF 

C SINI I*THETA> * SINI J^THETA) * SIN(K*THETA) * 

C SINIL*THETA> * DTHETA. 

C 

C EXTERNALS. 

C CALLED BY 

C INPUT 

C 

SUBROUTINE TRI40R 
IMPLICIT REALMS <A-H,0-Z> 

COMMON /CS/ CCCI125),SSC(125»,CSS(125I 

COMMON /CS4/ CCCCI625) , SSS S 1 625 > , S SCC 1 62 5 > , S CC S ( 625 > 

COMMON /CONST/ NH , NELEMS , NNOOES , NS I Z E» NPR NTQ, NEQ, NEQT ,N , NN , NHNS , 
1 DT2.NPRNTL,NPRNTF,IDELF,IDC0E 

COMMON /HARM/ NHP,IHARM(5I 
Cl CALCULATE TRIGONOMETRIC INTEGRALS 

PI 02 = 1. 570796 
I TH = 0 
C 

DO 10 M= 1 • NH 
K = IHARM ( M ) 

C 

DO 10 1=1, NH 
11= IHARM! I } 


DYN 1 7582 
DYN 17584 
DYN17586 
DYN 1 758 8 
DYN17590 
DYN 1 7592 
DYN 1 7594 
DYN17596 
DYN 17598 
DYN176C0 
DYN1 7602 
DYN 17604 
DYN176C6 
DYN17608 
DYNl 7610 
DYN 17612 
DYN 17614 
DYNl 761 6 
DYN 17618 
DYN 1 7620 
DYN 17622 
DYNl 7624 
DYN 1 7626 
DYN 1 7628 
DYN 1 7630 
DYN 17632 
DYNl 7634 
DYNl 7636 
DYN 17638 
DYNl 7640 
DYN 17642 
DYN 1 764 4 
DYNl 7646 
DYNl 7648 
DYN17650 
DYN 17652 
DYN 1 7654 
DYN 1 7656 
DYN l 765 8 
DYNl 7660 
DYN 17690 
DYN 17700 
DYNl 770 8 
DYN17710 
DYNl 7720 
DYNl 772 8 
0YN17730 
DYNl 7740 
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C DYN17748 


0013 


DO 10 J=1,NH 

DYN17750 

0014 


JJ=IHARM(J) 

DYN 17760 

0015 


IPJ=II+JJ 

DYN17770 

0016 


I MJ= I ABS (I I- J J ) 

DYN 17780 

0017 


IF ( IPJ.NE.K.ANO. IMJ.NE.K) GO TO 10 

DYN17790 

0018 


ITH=ITH+1 

DYN17800 

0019 


IPM=II+K 

DYN 17810 

002 0 


I MM= I ABS { I I -K I 

DYN 1 7820 

0021 


FONE=3.0 

DYN 1 7830 

00 22 


FTWO=0 . 0 

DYN17840 

002 3 


FTHREE =0. 0 

DYN17850 

0024 


FF0UR=0. 0 

DYN17860 

002 5 


IF ( IPJ.EO.K I F0NE = 1 .0 

DYN17870 

0026 


IF < IPJ.FQ.K.ANO.K.EQ.O) F0NE=2.0 

DYN 1 7880 

0027 


IF ( IMJ. EO.K) FT W0= 1.0 

DYN17890 

0028 


IF ( IMJ.EQ.K. AND.K.FQ.O J FTW0=2.C 

DYN 1 7900 

0029 


IF I IPM.EQ. JJ) FTHREE=1 .0 

DYN 1 7910 

0030 


IF ( IPM.EQ. JJ. AND. JJ.EQ. 01 FTHREE=2.0 

DYN 1 7920 

0031 


IF (IMM.EQ.JJ) FF0UR=1 .0 

DYN 1 7930 

3032 


IF ( IMM. 60. JJ. AND. JJ.EQ. 0) FFQUR=2.0 

DYN17940 

0033 


CCC< ITHJsPI02*(F0NE+FTW0) 

DYN17950 

0034 


SSCI I TH I =P I 02* (— FONE»FTWO) 

DYN17960 

0035 


CSS( ITH)=PI02*<-FTHREE*FFOUR> 

DYN 1 7970 

0036 

C 

10 CONTINUE 

DYN17980 
DYN 1 798 3 

0037 


P I 04=0. 785398 

DYN 17990 

003 8 

C 

IFO=0.0 

DYN 1 8000 
DYN 1 8008 

0039 


DO 20 L=1,NH 

DYN 18010 

0040 

C 

L L = I H AR M ( L I 

DYN18020 
DYN 1 8028 

0041 


DO 20 1=1, NH 

DYN18030 

0042 

C 

ll=IHARM< I » 

DYN 1 8040 
DYN 1 8048 

0043 


DO 20 J = 1 » NH 

DYN1 8050 

0044 


J J = I HARM ( J ) 

DYN 1 8060 

004 5 


IPJMI + JJ 

DYN1 8070 

0046 

C 

IMJ=IA8S(I I- J J » 

0YN1 8080 
DYN 1 8088 

004 7 


DO 20 K= 1 , NH 

DYN 1 8090 

004 8 


KK= IHARMIK) 

DYN181C0 

304 9 


KPL = KK+ LL 

DYN18110 

0050 


KML= l ABSIKK-LL) 

DYN 18120 

0051 


IF ( IPJ.NE.KRL.AND. IPJ.NE.KML.AND.IMJ. 

1 NE.KPL. AND. IMJ.NE.K ML) GO TO 20 

DYN18130 
DYN 1 8140 

0052 


IF0=IF0>1 

DYN18150 

0053 


F0NE=0.0 

DYN 1 8160 
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0054 


F TW0=0. 0 

DYN18170 

0055 


F THR EE=0. 0 

DYN18180 

0056 


FF0UR=0 . 0 

DYN18190 

0057 


FFI VE=0.0 

DYN 1 8200 

0058 


F SI X = 0.0 

DYN 1 82 10 

1 05 9 


FSEVFN=0.0 

0YN18220 

0060 


FE IGHT=0. 0 

DYN 1 8230 

0061 


IF (IPJ.EQ.KPL) F ON E = 1 4 0 

DYN 18240 

0062 


IF ( IPJ.EQ.KPL.AND.KPL.EQ.O) F0NE=2.0 

DYN 1 82 50 

0063 


IF (IPJ.EO.KML) FTWO= 1.0 

DYN 1 8260 

0064 


IF (IPJ.EO.KML. AND. KML.EQ.O) FTH0=2.0 

DYN 182 70 

0065 


IF ( I MJ. EQ.KPL ) FTHREF=1.0 

DYN18280 

0066 


IF (IMJ.EQ.KPL.ANC.KPL.EQ.O) FTHRE E = 2 .0 

DYN 1 8290 

0067 


IF (IMJ.EQ.KML) FFOUR= 1.0 

DYN18300 

006 8 


IF ( IMJ.EQ.KML .AND. KML .EQ.O) FFDUR=2.0 

DYN18310 

0069 


KPJ=KK+JJ 

DYN1 8320 

0C7 0 


K M J = I ABS (KK-JJI 

DYN 18330 

0071 


I PL= I I+LL 

DYN 1 834D 

0072 


I ML = 1 ABS I I I-LL) 

DYN1835D 

0073 


IF ( I ML . EQ.KPJ ) FFIVE=1.0 

DYN18360 

OC 74 


IF (IML.EO.KMJ) F S I X= l .0 

DYN18370 

0075 


IF (IPL.EO.KPJ) FSEVFN=l .0 

DYN18380 

0076 


IF (IPL.EO.KMJ) FE I GHT= 1 .0 

DYN 1 8390 

0077 


IF ( IML.EO.KPJ.ANO.KPJ.EQ.O) FFIVE=2.0 

DYN18400 

0078 


IF <IML.E0.KMJ. AND. KMJ.EQ.9I FSIX=2.0 

DYN18410 

0079 


IF IIPL.EO.KPJ.AND.KPJ.EO.O) FSEVEN=2.0 

DYN 1 8420 

0080 


IF ( IPL.EO.KMJ. ANO.KMJ.EO.O) FEIGHT=2.0 

DYN 1 8430 

0081 


CCCCi IF0) = PI04#< FONE + FTWO + FTHREE«-FFOUR» 

DYN 18440 

0032 


SSSSi IF0)=PI044( FONE-FTWO-FTHREE+FFOUR) 

DYN 1 8450 

0083 


SSCC ( IF0)=PI04*<-Fr)NE-FTW0+FTHREE«-FF0UR ) 

DYN 1 8460 

0084 


SCCS UFO) =PI04*(FFIVE+FS I X-FSE VEN-F E IGHT ) 

DYN 18470 

0085 

20 CONTINUE 


DYN18480 


C 


DYN 1 8483 

00 86 

RETURN 


DYN 1 8490 

0087 

END 


DYN18500 
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NO 


FF0UR-1.0 



KPJ-KK+JJ 

KH]-IA5S(KK-JJ) 

IPL*II+LL 

IKL-IABS(II-LL) 


NO 


FFIVE-1.0 





TRII 4 &R j-3.139 



FEIGHT-2.0 


S 

28 

CCCC(IFO)-PI04* 

( FONE+FTVO+FTHREE+ 
FFOUR) 

SS$$(IFO)«PI04* 

(F0NE-FTK0-F7HREE) 

^ J 
SSCC(IFO)“PIO«* 
{-FONE-FTWO+rntREEt 
FOUR) 

SCCS(IF0)*P104* 

(FFIVEFFS1X-FSEVEN) 

y - - i ■ 


CONTINUE 


nn 


K-K+l 



VES 


© 


S4 ) 2.18 

















VARIABLE CROSS REFERENCE 


The variable cross reference listing gives an alphabetical 
listing of all variables from each routine along with the type of 
each variable, the dimension value for variable arrays , the statement 
number referencing the variable, and a corresponding letter value 
for each statement reference. The letter values for each reference 
are one of the following: 

U - this indicates that the variable 
is simply being used in this 
particular statement reference. No 
values are being assigned to the 
variable in this particular reference. 

D - a reference with a corresponding letter 
D indicates that the variable is defined 
in this statement reference. Examples 
of statements inwhich variables could be 
defined are COMMON, DIMENSION, all type 
statements, and subroutine definitions. 

S - this indicates that the variable is set 
or given a value as in an assignment 
statement, input statement, etc... 


Preceding page blank ■ 
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P - the letter P stands for parameter 
and indicates that the variable 
appears in the argument list of 
a subroutine CALL statement. 



INITIAL 


VARIABLE 

TYPE VALUE 

DIMENSION 

WHERE /HOW 

USED 









A 

RE AL*8 

204 

H 850,0 

11870,0 

1 0 9 5 C , S 

1 1040, S 

11040, S 

1 1050,0 

11050,$ 

11060 ,U 

11060, S 

110 7G , S 




110/0.U 

1118C ,U 

11 1 80 , S 

111°0,U 

111 90, S 

11210, S 

1 1 2 1C » U 

11310,0 

11410,$ 

1 1 460 , S 




11460, U 

1 146u,U 

1147L.U 

11470,0 

11470, S 

11470,0 

1 1470,0 

1 1 480 , S 

1 1 480 , U 

1 143C ,0 




1 1 4 8 a , 0 

1 149( ,U 

11 49V, 0 

11490,$ 

11490,0 

115(0, S 

11 500, U 

11500,0 

11510,0 

11510 , S 




1 1 5 1 C » ' J 

1 152--.U 

1152a, S 

1 1520 ,U 

1 1520,0 

1152a, U 

1 1520,0 

1 1 520 ,U 

1 1 52 0,U 

1153C ,0 




1153(,,U 

1153(',ij 

1 l 5 V; , U 

11530,0 

1 1530, S 

11540, U 

1 1 540 , S 

1 1540, U 

11550, S 

1 1 5 50 , U 




11551 , U 

1 156a, U 

1156M, S 

11560, U 

11570,$ 

11570,0 

11570,0 

1 15 7C ,0 

1 1570, U 

1 1570,0 




115 7*,' , U 

11571 ,0 

11570,0 

1 1570,0 

1 1 5 7 0 , U 

11580, U 

1 1 590 , U 

11590, U 

11600, U 

11600,0 




1 1 6'. o , U 

1 165L ,0 

1 1660 , U 

1 167L ,0 

116 80 ,0 

11690 ,0 

1 1700, U 

1 1 720 ,U 

1 1 730, U 

11790,0 




1175C.U 

11764 ,U 

1 1 7 70 , 0 

1 1780,0 

1 1 7 9 L , U 

1 18C0.0 

11810,0 

118 20 ,U 

1 1830,0 

1 1 84C ,u 




1185'. ,U 

11860,0 

1 1 3 70 , 0 

11880,0 

1189C ,0 

119C0.U 

1 1910, U 

11920,0 

1193C.U 

1 1 9 90 , U 




11950,0 

1 1 9 o ' , 0 

11970,0 

1 1 99a , 0 

11990, U 

12UCC ,U 

1 20 10 , U 

1 2 0 2 0 « U 

12C3C ,0 

1 2 0 9 0 , U 




l?s)Sf.,U 

1206" ,0 

1 2 a 7 i , U 

12600, S 

1261C.S 

12620, S 

12630, S 

12640, S 

1 2650 , S 

12680, S 




12 6°!., S 

127';;. , S 

1 2 7 1 v/ , S 

12720, S 

12730, S 

12740, S 

12750, S 

12760, S 

12770, S 

127BC.S 




12798, S 

12830, S 

1 2 8 16 , S 

12820, S 

12830, S 

1284a, S 

1285C, S 

12860, S 

12870, S 

12880, S 




12890. S 

129C i. , S 

12910, S 

1292C, S 

12930, S 

12940, S 

12950, S 

12960, S 

12970, S 

12960, S 




12990, S 

13000,$ 

13Ulv,S 

1 30 2 0 , S 

13030, S 

13060,0 

1 3 0 7 C , U 

13CJ7C ,U 

13080,0 

13C90 ,U 




13C80.U 

13120, U 

13120,0 

13120,0 

13120,0 

1 31 30 , U 

13130, U 

13130,0 

13130, U 

13190,0 




13150, U 

1315C ,U 

1 3 1 50 , U 

13160,0 

13160, U 

1316C ,U 

13170, U 

13170, U 

13170,0 

13180,0 




13139,0 

131 at ,u 

13180,0 

13240,0 

13250, U 

13250, U 

1326L‘,U 

1 326U , 0 

13260, U 

13270, U 




13270,0 

1327; ,0 

1 32 70 , U 

13320,0 

1332C ,0 

13320,0 

13320, U 

13330,0 

13340,0 

1 339C , 0 




1334C.U 

1 334L ,0 

1 3 3 50 , U 

13350 , U 

13360,0 

13360,0 

13360,0 

1 33t>C ,0 

13370,0 

13370, U 




13370, U 

1338L.U 

13383, U 

1 338C ,0 

13380, U 

13390, U 

13390,0 

13390,0 

13390, U 

1 3 4 1 0 , U 




13410,0 

1 34 10 , U 

13410,0 

13420,0 

13430, U 

13430, U 

13430, U 

13430,0 

13440, U 

13440,0 




13450,0 

1345L.U 

1345L, U 

13450,0 

13460,0 

13460, U 

13460,0 

13470, U 

13470,0 

13470,0 




13470, U 

13480 ,U 

13480,0 

13480,0 

13480, U 

13550, U 





AAV 

RE AL*8 


14590, S 

146C0 , U 

14620, U 








AL 

REAL*8 

167 

93C , 0 

2650, S 

2660, U 

4310, S 

4490,5 

14900, D 

15640, U 

15650, U 

15660,0 

1567C.U 




15680,0 

1 5 6 90 , 0 

157C0.U 

15710, U 

1 579C ,U 

1 58CC»U 

15810, U 

15820,0 

15830,0 

15840, U 




1585C ,0 

15860,0 

16910,0 

172 80,0 

17280,0 

17290, U 

17300,0 

173CC ,0 

17300,0 

17310,0 




17320,0 

17320,0 

17320,0 

17333,0 

17330, U 

1 7340 , U 

17340,0 

17340,0 

17350,0 

17350, U 




17360,0 

1736L ,0 

17360, U 

173 80,0 

17380,0 

17380, U 

17390,0 

17390,0 

17400, U 

17900,0 




17420,0 

1742C ,U 









ALPHK 

RE AL*8 


432C,P 

14870,0 









AL5 

RE AL*8 

50 

1080,0 

2890, S 

2 940, S 

3020, U 

7 1 70 , D 

8820,0 

8830, U 

13710,0 

14090,0 

1415C.U 




16150,0 

1689C ,D 

17020, U 

17050,0 

17060,0 

17090, U 





ALSU 

RE AL*8 


2870, S 

2890,0 









ALT 

RE AL*0 

50 

1080,0 

2900, S 

295C, S 

3C20,U 

7170, D 

8820,0 

8830, U 

13710,0 

14100, U 

14180,0 




16150,0 

16890, 0 

1 70 30 »U 

1 7040 ,U 

1707C ,U 

17080, U 





ALT 1 1 

REAL*8 


2870, S 

29CC ,0 









AMI 

REALMS 


11810, S 

12230,0 

12 310,0 

12330 ,U 

12400,0 

12430, U 

12510, U 

12550, U 

12770,0 


AM 10 

REALMS 


1 1 650 , S 

1172C ,S 

1220° , U 

12230, U 

12280,0 

12330,0 

12370,0 

12430, U 

12480, U 

12550,0 




12630, U 

12680 ,U 









AM2 

RE AL*8 


1180C, S 

12160,0 

1 2 1 70 , U 

1 2 1 80 , U 

1219C.U 

12760, U 






J-3.143 



initial 


variaple 

TYPE VALUE 

DIMENSION 

WHERE /HOW USED 








AM3 

RE AL*8 


11790, S 

12160,0 

12 170, U 

12180 ,U 

12190, U 

12750, U 




AM4 

RE AL*8 


11780, S 

1216c, U 

12170, U 

12180, U 

12190, U 

12740, U 




AM5 

REALMS 


1 1 7.i0 , S 
12650, U 

1 1770, S 
1 27 30 , U 

12220, U 

12230, U 

12300, U 

12330, U 

12390, U 

12430, U 

12500,0 

AK6 

RE AL*8 


11690, S 

1176t, S 

12126,0 

12130 ,U 

12140,0 

12150,0 

12640, U 

12720, U 


AM7 

RE AL*8 


1169C, S 

1 1 7 5C » S 

12120,0 

12130 ,U 

12140, U 

12150, U 

12630, U 

12710,0 


AM8 

RE AL*8 


11670, S 
12620, U 

117 40 , S 

1 2706. , U 

12210,0 

12230, U 

12290,0 

12330, U 

12380,0 

12430, U 

12490,0 

AM9 

kE AL*8 


11660, S 

11730, S 

12080,0 

12090,0 

12100 ,U 

12110, U 

12610, U 

12690, U 


ANG 

REALMS 


15 20 G , S 

15220,0 

163 30, S 

16350, U 






ARCL 

RE AL*8 

50 

1030,0 
14590, U 
17210, U 

2720, S 
14590 ,U 

2740, S 
1688C.D 

30 30 »U 
17150, U 

661 0,D 
17150 ,0 

7140,0 
17160, U 

13650,0 
17160, U 

1414G ,U 
17190, U 

14210,0 

1719C.0 

ARCLI 

REAL*8 


738C.S 

7440, U 

7450, U 

7460 ,U 

7470, U 

7480, U 

7490, U 



ARL 

RE AL*8 


7330, S 

7340 ,U 

7350, U 

7380, U 

7900, U 

8670 , U 




AO 

RE AL*8 


1182o, S 
12260, U 

12C80 ,U 
12272, U 

1 2 1 20 , U 
12 78C.U 

12160, U 

1 22CO , S 

12200, U 

12230, U 

12230, U 

12240,0 

A1 

RE AL*8 


11330, S 
12250, U 

12080, S 
12260,0 

12080, U 
122 70, U 

1 2 1 2 0 , U 
1279G ,U 

12160, U 

12210,5 

12210, S 

1223C.U 

12230,0 

A10 

REALMS 


11920, S 

12330, U 

12339, S 

12420, U 

12440,0 

12530,0 

12560, U 

12880,0 


All 

REAL*8 


11930, S 
12450, U 

1 2 1 00 , U 
12460 ,U 

1 2 1 40 , U 
12890.U 

12180, U 

12250,0 

12340, U 

12370,0 

12370, S 

12430,0 

A12 

RE AL*8 


1 1940, S 
12430, U 

12 IOC , U 
12450,0 

1 2 100 , S 
12460, U 

12143, U 
12900, U 

12180,0 

12250, U 

12340, U 

12380, S 

12380,0 

Ai 3 

REAL*8 


11950, S 
12450 ,U 

12140, U 
12460,0 

1 2 1 40 , S 
12910, U 

12180, U 

12250, U 

12340, U 

12390, S 

12390,0 

12430,0 

A14 

REAL*8 


11960, S 
12460,0 

1 2 1 SO , 0 
1292C.U 

12180, S 

12250, U 

12340, U 

124C0 , S 

12400, U 

12430,0 

12430,0 

Al 5 

REAL*8 


11970, S 
12930, U 

l 22 50 , U 

1 2 2 5C , S 

12340,0 

12410, U 

12410, S 

12430, U 

12430,0 

12450,0 

A 1 6 

RE 4L*B 


11980, S 

1 2340 , U 

12340, S 

12420, S 

1242C.U 

12440, U 

12440,0 

12450,0 

12470, U 

Al 7 

REAL*8 


11990, S 

1243C.S 

12430, U 

12540 ,U 

12560, U 

12950, Of 





12550 


,U 


1 2 550, U 


14210, U 
17210, U 


12250, U 
1224C.U 

12430 , U 
12430, U 
12430, U 
12450, U 
12460, U 
12940, U 


J-3. 144 : 



INITIAL 


VARIABLE 

TYPE VALUE 

DIMENSION 

WHERE/HOW 

USED 


AIR 

RE AL*8 


12000, S 
12 550 » U 

1 2 1 1C , U 
1257C.U 

1 2 1 50 , U 
12960, U 

A19 

REAL*6 


12010, S 
12 550, U 

12110, S 
12 55c ,U 

1 2 1 10 , U 
1 2 5 7C , U 

A2 

REALMS 


1184C.S 
12260, U 

12120, S 
1 22 70 »U 

1 2 1 20 . U 
12800 , U 

A20 

KE AL*8 


12020, S 
1255C ,U 

1 2 1 50 , U 
12570, U 

12150, S 
12980, U 

A21 

RE AL*8 


12030, S 
12570, U 

12190, S 
12990 , U 

12190, U 

A22 

RE AL#8 


12040, S 
13GJG.U 

1 2 2 60 , U 

12260, S 

A23 

KE6L*8 


12C5C, S 

12350 , S 

12350, U 

A2A 

REALMS 


12C60.S 

12450,5 

1 2 4 5u * U 

A25 

REAL*8 


1207U.S 

12550, S 

12550, U 

A3 

REALMS 


11850, S 

12160, S 

1 2 1 6v , U 

A4 

RE AL*B 


1186C, S 

1223C.U 

12230, S 

A5 

RE AL*8 


11870, S 
1235C.U 

1 2090 , U 
1 2 3 60 , U 

1213C.U 
128 30 ,U 

A6 

RE AL *8 


11880, S 
12340, U 

12090, S 
1 2 3 5C , U 

12090, u 
1 2 3 6t , U 

A7 

REALMS 


11890, S 
1 2 35o , U 

12130, U 
1 2 3 60 , U 

1213C, S 
12850, U 

A8 

RE AL*8 


11900, S 
1236W.U 

12171,5 
1 2 8 6C , U 

1 2 1 7C , U 

A9 

REALMS 


11910, S 
12870, U 

12240, S 

12240, U 

BSL 

RE AL*8 


14960, S 

14550, U 

1465C.U 

BSTL 

REALMS 


14480, S 

1455C , U 

14650, U 

BSTMST 

RE AL*8 

2C 

13720, S 

1462o, U 

14630, U 

BSTRMS 

REAL *8 

20 

13720,0 

1460C ,U 

1466C.S 


1 2 1 90 , U 

12260, U 

12350 ,U 

12450, U 

12480.S 

12480, U 

12550, U 

12150, U 
12970, U 

12190, U 

12260, U 

12350, U 

12450, U 

12490, S 

12490, U 

1 2 1 60 , U 

12220, U 

12220, S 

12230, U 

12230, U 

12240, U 

1225c, U 

1 2 190 , U 

12260, U 

12350, U 

12450, U 

12500 ,S 

12500, U 

12550, U 

12260 ,U 

12350, U 

12450, U 

12510, S 

12510, U 

12550, U 

12 550, U 

12350, U 

1245C.U 

12520, S 

12520, U 

12550, U 

12550, U 

12 570 »U 

12450, U 

12530, S 

12530, U 

12560, U 

12560, U 

12580, U 

13010, U 

12540 ,U 

12540, S 

12560, U 

12560, U 

12580, U 

13020, U 


130 30, U 







12230, U 

12230, U 

12240, U 

12250, U 

12260, U 

12270, U 

12810, U 

1232c' »U 

12330 , U 

12410, U 

12430, U 

12520, U 

12550, U 

1282c, U 

12170, U 

12240, U 

12280, S 

12280, U 

12330, U 

12330, U 

12340, U 

12130, U 
12840, U 

12170, U 

12240, U 

12290, S 

12290, U 

12330, U 

12330, U 

12170, U 

12240, U 

12300, U 

12300, S 

12330, U 

12330, U 

12340, U 

12240, U 

12310, S 

12310, U 

12330, U 

12330, U 

12340, U 

12350, U 

12320, S 

12320, U 

1 2330 , U 

12330, U 

12340 ,U 

12350, U 

12360, U 


14680, S 


J-3.145 



VARIABLE 

INITIAL 
TYPE VALUE 

DIMENSION 

WHERE/HOVi 

1 USED 









8STRMT 

REAL*? 

20 

13 720 ,0 

1A61C.U 

1 4fc 7C , S 








BSTTMT 

RE AL*8 

20 

13720,0 

1A62L ,U 

1 47C.0 , S 








BSTIJ 

REAL*8 


1445G, S 

1A550 ,U 

14650, U 








BSU 

RE AL*B 


1443C , S 

1 A 5 A 0 , U 

14650, U 








BTL 

REAL*8 


14472, S 

1A55C ,U 

1465C ,U 








BTTMST 

RE AL*8 

2.) 

1 3 720 » 0 

14600, U 

14690, S 








BTU 

REALMS 


14449, S 

1454c ,U 

14650 ,U 








CARO 

REAL*8 

20 

130,0 

1 AC , S 

300, S 

3 1C »U 

330 ,U 

330, U 

390, U 

4C0 , U 



ccc 

REAL*8 

12 8 

7090,0 

8 ICC , U 

8120 ,U 

81 5u ,U 

8820, U 

17600,0 

17950, S 




cccc 

RFAL*8 

625 

7100,0 

8520, U 

17610 ,D 

18440, S 







CC1 

REAL*8 


573C.D 

8820,0 

6t>4C , 0 
13660,0 

6 7 80 , S 
14340, U 

7150,0 
1434C ,U 

8100, U 

8120, U 

8150, U 

8170, U 

8510, U 

8520 ,U 

CC2 

RE AL*8 


5730,0 
1 A 350 , U 

6 6 AO' , 0 

6790 ,S 

7150,0 

8120.U 

8170, U 

8540, U 

8830, U 

13660,0 

1435c, U 

CES 

RF AL*8 


7920, S 
1 706 r ' ? S 
17320,0 
17380, U 

810 '., , S 
1 7080 , S 
17330.U 
1 7380 , U 

810'), U 
1728C ,U 
1734^,11 
17390 ,U 

8210, U 
1728U ,U 
17340, U 
1 74i>c ,U 

824C.U 
17280, U 
17340, U 
17400, U 

8260, U 
173CC.U 
17350, U 
17420, U 

8290, U 
17300, U 
17360, U 
17420.U 

16970,0 
173 10, U 
17360, U 

170Z0.S 
17320, U 
17360, U 

17C4U.S 
17320, U 
17380, U 

CEST 

RE AL*3 


7«5AU, S 

814( ,U 

8149, S 

82 10 ,U 

8230 ,U 

8240, U 

8260, U 

8280, U 

8290, U 


CET 

RE AL*8 


793C.S 

8120, S 

81 3v » U 

82 30 , U 

8240, U 

8280, U 

8290, U 




CE13 

RE AL*8 


7950, S 
8860, U 

815C , S 
8881 ,U 

8 1 6o » U 
8890 ,U 

82 10 , U 
89 1 i) »U 

8240, U 

8260, U 

8290, U 

8690, S 

8820, U 

882C.S 

CE23 

RE AL*8 


7960, S 
8830, U 

8170, S 
8830, S 

8 1 H( ,01 
8 860 , U 

82 1C ,U 
8870 ,U 

8230, U 
8880, U 

8240, U 
8890, U 

8260, U 
8900, U 

8280, U 
8910, U 

8290, U 

8700, S 

CE413 

REAL*8 


8 3 A 0 , S 

8520, S 

8520 , S 

8580, U 

86CC ,U 

8610, U 

8630, U 




CE423 

PE AL*8 


8350, S 

8 540 * IJ 

6 540 , S 

8580, U 

8590 jU 

8600, U 

861C , U 

8620, U 

8630, U 


CHALS 

RE AL*8 


930,0 

14900,0 

1691C , D 








CHECK 

RE AL*8 

8,8 

930,0 

2650 , S 

2660, U 

4310 ,S 

4490, S 

14900, D 

15910, U 

16910,0 

17510, U 


CHIS 

RE AL*8 


13880, S 

14160, U 

14161 ,S 

1 4370, U 

143 80, U 






CHI ST 

RE AL*8 


1 3 9C 0 » S 

1424v. ,U 

14240, S 

14390, U 







CH I ST 1 

RE AL*8 


1A200.S 

14240, U 

142 70 ,U 









J-3.146 



INITIAL 


VARIA8LE 

TYPE 

VALUE DIHFMSICN 

a'HER E / HOW 

USED 








CHI S 1 

RE AL*8 


1414G, S 

14160, U 

1A25C ,U 







CHIS2 

REAL*8 


14 1 50 i S 

l4ifci: ,u 

142 50, U 







CHIT 

RE AL*8 


13890, S 

14190, S 

14190, U 

143 70,1) 

14380, U 





CHIT1 

KE AL* 8 


14 1 1C , S 

1419L ,U 

14260, U 







CHIT2 

RE AL*8 


14130, S 

1 4 1 9( ,U 

14260 ,U 







CL2R 

REALMS 


7570, S 

7650 ,U 








COrtENT 

RE AL*8 

20 

1130,0 

1 1 50 , S 

1 2 70 , S 

1280, U 

1 490 , S 

1510, U 




CONST 

RE AL*8 


5^,0 

1493u,0 

98C , 0 
16120,0 

5710,0 

16920,0 

6550, D 
17620,0 

7070,0 

9020,0 

9830,0 

10280,0 

11270,0 

CCNSTF 

RE AL*8 


1160,0 

1 2Uw , S 

3710, U 

3980, S 

4000, U 

4060, U 

4720, U 



CONSTN 

RE AL*8 

CONSTANT 

1160,0 

1 1 7C , S 

3710.U 

4lX0 , U 

4720, U 





CCNST1 

RE AL*6 

8' • S 

1 160,0 

117C.S 

1 200 , U 







COPH 

RE AL*8 


7350, S 

7420, U 

745C,U 

747C.U 

7550, U 

7570, U 




COSINE 

REAL*8 

51 

1030,0 

272v ,S 

2 74y , S 

2740, S 

6610, D 

7140,0 

13650, D 

14120, U 

14130, U 

COSM 

RE AL*8 

50 

1C3C , 0 

2790 , S 

6610,0 

7140, D 

1365C.D 

14210, U 

1 4220 , U 

16880,0 


C02R 

RE AL*b 


755C, S 

7630, U 








CS 

PEAL*8 


612u, S 
14190, U 

6180, U 
1427L.U 

7090,0 

17600,0 

1 3960 , S 

14040, U 

14050, U 

14070, U 

14090, U 

14100, U 

CSS 

REALMS 

125 

7C9C.0 

8140 ,U 

8170, U 

8830, U 

17600,0 

17970, S 




CS4 

PE»L*8 


7 IOC , 0 

17610,0 








CTHIS 

RE AL*8 


13910, S 

14250, S 

14250, U 

1 4500 , U 






CTHIST 

REALMS 


13930, S 

14270,0 

14270, S 

14510, U 






CTHIT 

RE AL*8 


13 9? 0 , S 

14260, S 

14260, U 

14500, U 






CYCLE 

REALMS 


110,0 

1100,0 

1 1 3'x ,0 







CIST 

RE AL*8 


144 1C, S 

14430 , U 

14440, U 

144 50 ,U 

14460, U 

14470, U 

14480, U 



C12 

RE AL*8 


1574C.S 

1575C.S 

15760, U 

1 5770 , U 

15780, U 





C2ST 

R6AL*8 


14420, S 

1443C ,U 

1444C.U 

1445C ,U 

14460 ,U 

14470, U 

14480, U 



0A8S 

RE AL*8 


633C , U 










1361C ,0 


16880,0 


1416C.U 


J-3.147 



INITIAL 


variable 

TYPE VALUE 

DIMENSION 

WHERE /HO *< 

i USED 









OATA 

REALMS 


1170, S 










DC OS 

RE AL*8 


2790.U 

6120 ,U 

13980.U 

1 55 AO , U 

1 55 AC ,U 






DO 1 

REALMS 


5730,0 

66Au , D 

6820 , S 

7150,0 

13660,0 

1 A370 , U 

1A370.U 




DD2 

PE AL*8 


5730, D 

66A( , D 

6833, S 

7150,0 

13660,0 

1A380.U 

1A380.U 

IA500.U 

1 A5C0 , U 


DELTE 

RE AL *8 


70, n 
A910.U 

5 80 * U 
A9 5C ,U 

5 8.;, U 
6 57 r ,0 

6 30 ,U 
7190,0 

730, U 
9050,0 

101C,0 
9150, U 

1320, S 
9200, U 

1780, U 
9860,0 

2010, U 
13680,0 

3A30.U 
1 3790 , U 

DELTEP 

RE At *8 


io:,d 

1070,0 

3280, S 

3A3C , U 

3510, U 

5770, D 

9060,0 




DOUBLE 

R E A L * 8 


1160,0 










DRO 

RE AL*8 


7 3 1 C , S 

733C ,U 

7330, U 

73A0.U 







OSIN 

RE AL*8 


2 800, U 
16610, U 

6 1 1C , U 
1 6 6 2 C , U 

1 399."> ,U 
1662c ,U 

1A610.U 

1A63C.U 

15520, U 

15520, U 

15530 ,U 

15630.U 

16610, U 

OSQRT 

RE AL*8 


733C.U 










DTH 

PEAL*8 

50,5,2 

1080,0 
A 580 , U 
1 6 7A0 , S 
1 7A20 , U 

3310, S 
A 7 8v. ,U 
1689C ,0 

3650, S 
A7R.1 ,S 
1727C ,U 

3660 , S 
ASAO.U 
17290, U 

3780, S 
7170,0 
17310, U 

3780, U 
13710, D 
17330, U 

3900, U 
1A020, U 
17350, U 

3900, S 
1A020.U 
1737C.U 

3920, S 
1A020.U 
17390, U 

AA5C. , S 
1615C *D 
17A00.U 

DTHT 

RE AL* 8 


1 A O' 2 0 , S 

1A15(;,U 

1 A 1 63 , U 








OTH1 

REALMS 

5 

1130,0 

AA2C , S 

AA50 , U 








DT2 

REALMS 


5C,D 
9350, U 
16920,0 

980,0 
9Av C ,U 
17620 ,0 

2( 1 J, S 
965C , U 

571C ,D 
9b30,D 

6550,0 

10U30.U 

7C 70 * D 
10280,0 

9020, D 
11270,0 

9290, U 
13610,0 

9330, U 
14930,0 

9350, U 
1612c ,0 

DUM 

RE AL*8 

1310 

1 1 AO , 0 

1 1 50 , S 

1 5 9 j » S 

1610, S 

1 6AC , S 

1660, S 

1690, S 

1730, S 



DZ 

REALMS 


7320, S 

73 3 C , U 

73 3c , U 

73 50 ,U 







EES 

RE AL*8 


6620,0 

7110,0 

13 600,0 








EPS 

PE AL*8 


1 A 3 » 0 , S 

IA3AC ,U 

1A350.U 








EPST 

REALMS 


1A320, S 

1 A 3 61. , U 









EPT 

REALMS 


1 A 3 10 , S 

1 A3AC ,U 

1A35C.U 








ES 

RE AL*8 

5 

6620,0 

7110,0 

7820., S 

8150, U 

8170, U 

13600,0 

1A0A0,U 




ESQi 

REAL*8 


7 500* S 

7820, U 

821. ,U 








ESQ3 

RFAL*8 


7510, S 

762C.U 

82AO ,U 









J-3.148 



INITIAL 

VARIAPLE TYPE VALUE DIMENSION wHEKE/HOW USED 


ESQ5 

REALMS 


7520, S 

782C ,U 

0260, U 







ESQ7 

REALMS 


7530, S 

782f ,U 

8290, U 







EST 

REALMS 

5 

6620,0 

71 10,0 

783C.S 

8160 ,U 

8180,0 

13600,0 

14060, U 



EST01 

realms 

5 

7230, n 

7660 , S 

7831 ,U 

8210, U 






EST02 

REAL*8 


7480, S 

78 30 ,U 

82 30 , U 







ESTQ3 

° EAL*8 

5 

7230,0 

7 6 7 ( , S 

7630.U 

8240 ,U 






EST05 

RE AL*8 

5 

7240,0 

7680, S 

78 3u , U 

8260 ,U 






ESTQ6 

REAL*8 


7490, S 

7840, U 

8260, U 







ESTQ7 

REAL*8 

5 

7240,0 

7690, S 

7840, U 

8290 ,U 






ESTU 

P.E AL*8 


13850, S 

14';60,U 

1 4£ 6? , S 

14320, U 






ESU 

RE AL*8 


1 3 H 3 0 , S 

14040 , S 

1404 ), U 

1 43uC , U 






ESUT 

REAL*8 


13940, S 

14090 , S 

14090 , IJ 

143C0.U 






ET 

REALMS 

5 

662C.0 

7110,0 

78£iu» S 

815C,U 

8170, U 

13600, D 

14050, U 



ET02 

RE AL *8 

5 

7240,0 

7700, S 

7710, U 

7800 ,U 

0230, U 





ETQ3 

REALMS 


74CI ,S 

78C0.U 

8240, U 







ET 06 

REALMS 

5 

7240,0 

7710, S 

7 81. 0 , U 

8280, U 






ETQ7 

RFAL*8 


7410, S 

7800, IJ 

82 90 , U 







ETU 

RE AL*8 


13840, S 

140 50, S 

14050, U 

14310, U 






ETUT 

RE AL*8 


14 ICO, U 

14100, S 

14310, U 







El 

RE AL*8 

50 

1020,0 

17060,1) 

2 680, S 

3o?0 * U 

6600,0 

6780, U 

6820, U 

7130, D 

13640,0 

16870,0 

E 1 3 

RE AL*8 

5 

6620, D 
R51u,U 

7110,0 
8520, U 

7880, S 
85?u , t) 

8 1 CO, U 
8520, U 

8100, U 
8 540 , U 

8120,0 
8820, U 

8120, U 
13600,0 

8140, U 
1407O.U 

8150, U 
14170, U 

E13Q1 

RE AL*8 


744C.S 

7 510, U 

7850, U 

82 lu , U 

8530, U 

8860, U 




E13Q3 

REAL*8 


7450, S 

75 J(. ,U 

7b5u,U 

8240,0 

0600, U 

8880, U 




E 1 305 

REAL*8 


7461 , S 

753C.U 

785^, U 

8260 ,U 

8610, U 

8890, U 




61307 

REALMS 


747w,S 

7520, U 

785u,U 

0290 ,U 

8630, U 

8910, U 




E13U 

RE AL*8 


1 3 8 6 0 v S 

14070,0 

14070,5 

1430C ,U 

14320, U 






17020, U 

817C.U 
14200, U 


J-3.149 



INITIAL ^ 

VARIABLE: TYPE VALUE DIMENSION WHtRE/HUW USED i 

CO 


E 2 

REAL*8 

5C 

1020,0 
17C80 , U 

2690,5 

3c2C » U 

E23 

RE AL*8 

5 

6620,0 

7110,0 

7860, S 




8 5 1 0 , U 

8520,0 

8560, U 

E23Q1 

R E AL *8 

5 

7230,0 

7 6 2 1. » S 

767C ,U 

E23Q2 

REAL*8 


7*20, S 

7430 ,0 

786c ,U 

E 2 303 

REALMS 

5 

72 3C,() 

76 30 , S 

7660, U 

£2 305 

kE AL*8 

5 

7230,0 

764C , S 

7690, U 

E2306 

REALMS 


7430, S 

787c, U 

82 80 , U 

E2307 

REALMS 

5 

7230, D 

7650, S 

7680 ,U 

E23U 

RE AL*8 


13870, S 

1 40 80 , S 

1 60 80 , U 

FEIGHT 

PFAL*8 


18230,5 

1839C , S 

18630, S 

FFIVE 

RE AL*8 


182V.C, S 

1 8360, S 

184U ,5 

FFOUK 

RE AL*8 


17860, S 

1793c, 5 

1794c, S 

FN 

RE AL* 8 


6770, S 

678C ,U 

6 7 9 0 , U 

FNU1 

REAL*8 

5C 

1020,0 

26RCI,S 

30 2C , U 




8 510,1) 

8 8 2 0 , U 

13640,0 




l 7(j 7o , U 

17L80.U 


FNU2 

RE AL*8 

50 

1 ? 0 * D 

2681 ,S 

3o?C; ,IJ 




145C0.U 

1 68 7‘. , 0 

1 7020, U 

FONE 

REALMS 


178.3c, s 
18460,0 

1 787c , S 

17880,5 

FOR 

RE AL*8 


8510, S 

8520, U 

8 54(':,U 

FORCE 

RE AL*8 

20 AC . 

3C , 0 

95C , 0 

3080,5 




3840, S 

3 95C ,S 

4 19c , S 




4 760 , U 

4 74< ,5 

491 J,U 




'5 24-..U 

93 3«. ,U 

9 350 , U 




1C 720 , S 

1 L 8 5c , U 

1 0 8 7 v , 0 




11180 ,U 

11190 ,U 

1121-1,1) 

FRCE 

RE AL*8 


14890,0 

1 6 1 4 C ,0 


FRCES 

RE AL*8 


4 320 , U 

16870,0 



66CU , D 

6796, U 

6830, U 

7130,0 

13640, D 

16870,0 

1 704Cq3j 

8100 ,U 
8540, U 

8100 ,U 
8540 ,U 

8120, U 
8830, U 

8120, U 
13660,0 

8146 ,U 
14C80.U 

8160, U 
14170, U 

8176, U 
1420C.U 

7860 ,U 

8210, U 

8580, U 

8860, U 




82 30- ,U 

8590, U 

8870, U 





7860 ,U 

8240, U 

8600, U 

8880 ,U 




786C- , U 

8266, U 

8616, U 

8890 , U 




8620 ,U 

89C0.U 






7870, U 

8290, U 

8630, U 

8910, U 




14310, U 

14320, U 






1 84 70 ,U 







1847u,U 







17970, U 

18196, S 

18300, S 

18310,5 

18440, U 

16450, U 

1 8460 , U 

6820, U 

68 36 ,U 






66C0.D 
14340, U 

6776, U 
14370, U 

7130,1) 

16870,0 

8100, U 
17020, U 

8120, U 
17U20 , U 

8150, U 
17040, U 

81 7C S U 
17660 , U 

66.00 , D 
1 70 40, U 

6770, U 
17640, U 

7130,0 
1 706C , U 

8830, U 
17080, U 

13640 ,D 
17090, U 

14350, U 

143eC,U 

1 7950 , U 

1796C.U 

1 8 1 60 , S 

18240, S 

1 82 50 , S 

18440, U 

1 8 45L- » U 

3090, S 
42cc ,S 
5690,0 
9360, U 
1 1 0 40 , U 
13690, D 

3280,5 
4 2 1 6 , S 
6580, D 
9360, U 
1105C.U 
14910,0 

3580, S 
4220, 5 
726-0,0 
98C0 , 0 
1 1 0 60 , U 
15940, U 

3590, S 
4700, U 
8990,0 
16010, U 
11060, U 
15940, S 

3740, U 
4700, U 
9220, U 
10010, U 
11070 ,U 
16940,0 

3740, S 
4 7 J 0 , U 
9240, U 
1C010,U 
11070, U 
17540, U 

3 840.U 

4 700 , U 
92 40 , U 

1G27C ,0 
11066, 'J 
17546,5 



INITIAL 


variable 

TYPE VALUE 

DIMENSION 

WHEP E/HOW 

USED 









f SEVEN 

REALMS 


1822C, S 

1838C, S 

10420, S 

1 847C.U 







FSIX 

REALMS 


18210, S 

18370, S 

18410, S 

18470, U 







FTHREE 

HE AL *8 


1785C, S 

17910, S 

17920 , S 

17970, U 

18180, S 

18280, S 

18290, S 

18440, U 

18450, U 

1846C.U 

FT W!J 

REALMS 


17840, S 
1846C , U 

1 7890 , S 

17900, S 

17950, U 

17960, U 

. 18170, S 

18260, S 

18270, S 

18440, U 

1845C ,U 

FI 

REALMS 


416c, S 

4 1 90 , U 

4 2 30 , U 








F2 

REALMS 


41&0, S 

420'. ,U 

4230, U 








F3 

RF AL*8 


4160, S 

4210.U 

42 30 , U 








F4 

REALMS 


4160, S 

42 20 , U 

423C.U 








G 

REAl*8 

50 

1C 20 , D 

2690, S 

3C 2 0 * U 

6600 , 0 

680C , U 

6810, U 

7130,0 

13640,0 

16870,0 


GCD 

REALMS 


5730,0 

6 6 4 C » 0 

7 1 5u , D 

13660,0 







GEQM 

RE AL *8 


102C.O 

66GU ,0 

7130,0 

1 3640 , D 

16370, D 






GGl 

REAL*8 


5730,0 

664 0,0 

6 8 0 o , S 

7150,0 

814C ,U 

8150, U 

8170, U 

8510, U 

13660, D 

1436C.U 

GG2 

REALMS 


5730, D 

6640,0 

6810, S 

7150, D 

1366C.D 

1439G.U 

1451C.U 




HARM 

REAL*? 


90,0 

IC'60,0 

5760, 0 

7160 »D 

13670, D 

14950,0 

16160, D 

16900,0 

17640,0 


HOU8QN 

REAL*8 


5 8 7 j » U 

577C ,0 









HOUBOl 

RFAL*8 


5880, U 

8960,0 










J-3. 



VARIABLE 

I 


I ABS 


INITIAL 

TY°E VALUE DIMENSION WHERE/HOW USFO 


INTEGER 


INTEGER 


510,0 

520, U 

1610, U 

1640, U 

1 7 4 • j , S 

1 89C , S 

2040, U 

2140 ,U 

2660, S 

2660, U 

2690 , S 

2 65C , 0 

272u,U 

272u , U 

2740,0 

27 5i. , U 

2690 ,U 

3o 20 ,U 

30 30 , U 

3C3c-,U 

3 1 3 O' , S 

314'. , S 

328:. ,U 

3290,0 

3 3Si ,U 

339C ,u 

3 3 7 0 , S 

358v , 0 

3 740 , S 

3751 ,S 

3 6 7 o , S 

3B9(',U 

4310, S 

4 4 90 * U 

4 7*tC , U 

4 75t , S 

4920, S 

4920 ,U 

5.;o-,o 

50 00 , S 

6270, U 

6 730, S 

8 1 2C » U 

8140, U 

8549.U 

H72(i,S 

9240, IJ 

9300 , S 

939C.U 

94 7*. , S 

9650, U 

96 7 v. , S 

lv 130, U 

10196, S 

10 430 , U 

H43L ,U 

10620,0 

K620.U 

1094o, S 

10950,0 

11420, S 

11430, U 

11 720, U 

11730, U 

11820, U 

1183' ,U 

11920, U 

11930,0 

12/.2c,U 

120 31 , 11 

1264U.U 

1 26 55 , U 

12766,0 

12770,0 

12 86' ,U 

1 2 8 7 0 » U 

1 2 96'; , U 

1 2 970 , U 

13510, U 

13530, S 

14 6 1C, U 

14620,0 

1 5 8 o , U 

150 80,0 

lal 70,0 

15170, U 

15 3 10, U 

15310,0 

15480,0 

154 80 ,0 

1589( ,0 

15910 ,0 

16300,0 

1639c ,U 

lo 540,0 

16540,0 

1 7 5 1 , U 

17510,0 

8070, U 

8420 , U 


12 50, S 

1340, U 

1 64c , S 

1660, S 

1 fl'.C » U 

1810, U 

2 l HO , U 

255c, S 

2 66C , S 

2660,0 

269c , S 

2690,0 

2 720 , U 

2720,0 

2 77 „ , S 

2770,0 

3C2C-.U 

3( 20, U 

3c30 , S 

31 3C. , U 

3140, 0 

3 1 7 C ,0 

329c , S 

332C ,0 

339. ,U 

3400, U 

3591 ,U 

361c » S 

377'J.U 

3770,0 

3890,0 

3900, U 

449'. , S 

4490, U 

4770, U 

4770, U 

498.. , S 

4°90 , 0 

5CL v * S 

596c, S 

674c, 0 

7980, S 

81 5c U 

6160, U 

8730,0 

882c, U 

9 3 1 c , 0 

9330 , U 

54 8i. ,U 

9490 ,U 

9680, U 

9'>2C-,S 

iu2.:o,u 

1 0 2 1 o , 0 

lc54-; , s 

10 55c., U 

1962. ,0 

IC690.S 

110 20 , S 

11c 40 , U 

1143.. ,U 

11620, S 

1 1 7 4‘J , U 

1175c- ,U 

1 1 846 , U 

1 1851. ,U 

1 194'.. ,U 

1195c ,0 

1 2 C 4c ,0 

120 50 ,U 

1 2 6 6 •; ,U 

12690, U 

12 760,0 

12790 ,U 

1248', U 

12890 ,U 

12 98c ,U 

1 2990 , U 

13 540, U 

1 3550 , U 

1462c ,U 

14630,0 

1508. ,U 

l5c9C,S 

1 5 1 7c , S 

13270, U 

1 532c , U 

15320 ,S 

1 5 4 8c , U 

15490, U 

15911, ,U 

1591c, 0 

1 6 39c , U 

1 63 90 , U 

16 540 , U 

1658c, S 

1 7 5 1 1:. , U 

17520, S 


846c , U ' 878o, U 


1340, S 

1370, S 

1660 , U 

169C ,0 

1810, S 

1930, S 

2560,0 

259C.U 

26 80, S 

2630,0 

2690, S 

2690, U 

2740, U 

2740,0 

2770, S 

2 7 7 C * U 

3G2o , U 

30 20 , U 

303C.U 

3060,0 

31 70 , S 

3190.S 

33 2t , S 

3320, U 

3410, U 

3420, U 

3630, U 

3640, U 

3780, U 

3780, U 

39cC , U 

39 10 , U 

4490 , 5 

4680, S 

4780,0 

4780,0 

499C ,U 

4990, U 

59 7P , U 

5980, U 

7990, U 

8010, S 

817G.U 

8180, U 

8830, U 

91 SC , S 

9330,0 

9330,0 

9500, U 

9500, U 

99 30 , U 

9990, S 

10420, S 

1 04 4U , U 

10570, U 

10570, U 

10700, U 

10700, U 

11040, U 

11110 , S 

11650, U 

11660, U 

1 1760, U 

1 1770, U 

11869 , U 

1 1 67u ,0 

11960,0 

1 1970, U 

129 60 , U 

12C 70,0 

12700,0 

12710 ,U 

12 80C ,U 

1 2 8 1 0 , U 

12900 ,U 

1 29 1C , U 

1 3 )0 C ,U 

13010,0 

1382L , S 

13980,0 

14660 ,U 

14670, U 

1509C ,U 

1 509c ,0 

15270 ,U 

15270,0 

15320 ,U 

1 5400 , S 

15490, U 

15490, U 

15920, S 

15930,0 

16400, S 

16400, U 

16590, U 

1 6600 , U 

17530, U 

17540, U 

177BC , U 

17820,0 


137U.U 

1590 *U 

1690, S 

1730, S 

1940, U 

1940, U 

2650 , S 

2650, U 

2680, S 

2680, U 

2700, S 

2710.U 

2740, U 

2740 ,U 

2780, S 

2790, U 

3020, U 

3020, U 

3080, S 

3090 , S 

3190, U 

3270, U 

3320, S 

3320,0 

3420, U 

343C ,U 

365C , U 

3660,0 

3830 , S 

3840 ,U 

3920, U 

4310,0 

4690, U 

4700 ,U 

490c , S 

4900, U 

4990, U 

5000 »U 

6060,5 

69 70 , U 

8020, U 

8100, U 

8370, S 

8380, U 

9190, U 

922G.U 

9350,0 

935C ,U 

9520, S 

9530, U 

10000, U 

10030 ,U 

1 0 4 4 r * , U 

1 94 40 , U 

10570,0 

10570, U 

10700, U 

10 700, 0 

1 1120,0 

1139c ,S 

1 1670, U 

1 1680, U 

1 1780, U 

1 1 790 , U 

11 880, U 

11890, U 

11980, U 

1 1990 ,U 

1 2 6c 0 ,U 

12610, U 

12720, U 

12730, U 

12820, U 

1233C ,U 

12920, U 

12930 ,U 

1 3 3 2 C, U 

13030 ,U 

13990, U 

1452C ,U 

1 46 80. , U 

14690, U 

1 5c 90 , U 

1 50 90 , U 

1527C.U 

15280, U 

1541C.U 

15430, U 

15520 , U 

1553C.U 

15940, U 

16300, U 

1652C, S 

1 65 30 , U 

16610,0 

16620, U 

18080, U 

18120, U 


1590, S 

1610, S 

1730, U 

1740,0 

2020, S 

2030 , U 

2650, S 

2650 ,U 

2630, S 

268c, U 

2720, U 

2720, U 

2740, U 

2740,0 

2790,0 

2 8CP , U 

3020, U 

30 3c- , U 

3090, U 

3130, U 

32 7C , S 

3230, S 

3320, S 

3370 , S 

3430, U 

3430,0 

3730, S 

3740, S 

3840 ,U 

3850 ,U 

4310, S 

4310, U 

4730, S 

4 74L , 0 

4910, S 

4910, U 

5000, U 

5990 , S 

6250 , S 

626C ,U 

8100,0 

8120, U 

8510,0 

852C ,U 

9220, U 

9249 ,0 

9350, U 

93 89 , S 

9630,5 

9640, U 

10030, U 

1012C ,S 

10470, S 

1043c ,0 

1C610 , S 

10620,0 

1C8C0, S 

iC9ia,u 

11400,0 

1 1 4 lo , U 

11690, U 

11700, U 

liaoo.u 

1 1810 ,U 

1 1 909 , U 

1191c ,U 

1 2 0 0 0 , U 

12010 ,U 

12620, U 

1263c ,U 

12740, U 

1275C ,U 

12840, U 

12 359 ,U 

12940, U 

1295C ,U 

13500, S 

1 3510 ,U 

146C0.U 

1 4 6 0 0 , U 

14700, U 

1 50 SC- * 5 

15170, U 

1 5 1 70 , U 

15280, S 

15310 ,U 

15450, U 

15460,0 

15540, U 

15 830, S 

16300, S 

16300 ,U 

16530, U 

1653c ,U 

17480,5 

17490,0 

18330, U 

18350, U 


J-3.152 



INITIAL 


VARIABLE 

TYPE VALUF 

DIMENSION 

WHERE /HO W 

USED 










IB 

INTEGER 


394C , S 

3 9 So 

,S 

396) ,U 

4C GO , U 

4180, U 

432u,P 

4390, U 

4510, P 

4520, P 

465C.U 




4720, U 

4820 

,U 

4 82o , S 

48 30 , U 

1487C.U 

15930 ,U 

16100, U 

16720, U 

16850, U 

1723C.U 




1 7 530 , U 











IBP1 

INTEGER 


3300, U 

33Cu 

,s 

3 3 1 0 , S 

3310, U 

4390, S 

4450 , U 

4460, U 

4580.U 

4580, U 

4930 ,S 




4930, U 

494'. 

,s 

49 v„ ,U 

1 6 7 2 o » S 

1 6730 » U 

1 6 7 4 C , U 

17230, S 

1 72 70 , U 

17270, U 

17280 ,U 




17 290 , U 

17300 

,u 

173K..U 

1 732e, U 

1 733C ,U 

17346, U 

17350, U 

17360, U 

17370, U 

173 91. ,U 




1 739v , U 

1 74'. t. 

,u 

1741'), U 

1 742o , U 

1 7 4 3 6 » U 






iocoe 

INTEGER 


oC • 0 

99( 

,0 

398.) , S 

5720, D 

6 S 60 , D 

7080,0 

9030, D 

9840, D 

10290,0 

11280,0 




1 3 6?(.’ , 0 

1494^ 

,0 

15o5<- ,U 

1539o ,U 

1613I..D 

16930, D 

17630, D 




IOELF 

INTEGER 


60 , D 

990 

,n 

3980, S 

4280, U 

5720, D 

6560,0 

7080, D 

9030,0 

9840,0 

1029C , D 




1 1 2 8 0 , D 

13620 

,0 

14940,0 

16130,0 

16930, D 

176 30 ,D 





IDP 

INTEGER 


1 S3 30 , S 

1534o 

,u 

1 5340 , U 

16420, S 

1643C ,U 

16430 ,U 





I ELM 

INTEGER 


2880 , S 

2890 

,'J 

2 9o 0 , u 

2930, S 

2940 ,U 

2950, U 

3300 ,U 

3 3C0 , S 

3310, S 

33 1C , U 




43^0, S 

432'., 

,p 

44 3), S 

445U,U 

4460 ,U 

44 80 , S 

4510, P 

4520, P 

4570, S 

4 5 ? C » U 




4 530, li 

4 5 8'. 

,u 

4 ° 3 o , U 

49 3o , S 

4940 , S 

4946, U 

10400 , S 

1C410 ,U 

1C54C.U 

IG570 , U 




l'. : 590 , ij 

106)o 

,U 

166’v ,U 

1064G ,U 

10660 ,U 

10676,1) 

10 670, S 

10700 ,U 

14870 ,U 

15C3t ,U 




l 504v , U 

15C4o 

,u 

10o6C , U 

151 30, U 

1593o, U 

1 6 10 C , U 

16220, U 

16240 , U 

1 6240 , U 

1625'. ,U 




16730,0 

1674C 

,u 

1 68 50 , U 

171 20, U 

17021 ,U 

1 7C20 » U 

17620, U 

17020, U 

17030, U 

17030 ,U 




1 7040, U 

1 7(.4o 

,u 

1 7 0 4 v » U 

1 7040 , U 

17O40.U 

17C 50, U 

1 7C 50 » U 

1706C,U 

17060, U 

17060 , U 




I 7u60 , U 

17(. 70 

,u 

1 7L 70 , U 

1 7 1 7 v , U 

17v8o,U 

17C8C ,U 

17080,0 

17O80.U 

17090, U 

1 7090 , U 




17L90.U 

17131 

,'J 

1 7 1 40 , U 

17150, U 

1715C ,U 

17150, U 

1 7 1 50 , U 

1 7 1 60 , U 

17160, U 

1 7 1 6 0 , U 




1 7 16C * U 

17190 

,u 

17190,1) 

17190, U 

17190, U 

17210, U 

17210, U 

17210, U 

17210, U 

17270, U 




1727G.U 

17280 

,u 

1 7290 , U 

17300 , U 

17310, U 

1732C.U 

17330 ,U 

17340, U 

17350, U 

17360, U 




1737C.U 

1738o 

,u 

1 7390 , U 

1 7400 ,U 

1 7 40G , U 

1742C.U 

17420, U 

1 7530 ,U 



IELM1 

INTEGER 


287u, S 

2880 

,u 

44 20 , S 

4430, U 

15080, S 

15090, U 

15170, S 

15270, U 

16300,5 

1639C ,U 

I E L M 2 

iNTECER 


287G.S 

2880 

,u 

2913, U 

4420 , S 

443C ,U 

4470, U 

15030, S 

15040, U 

1 5u80 , S 

1509C.U 




1 5 1 7 r , s 

15270 

,u 

1622C , S 

16240 ,U 

16300, S 

16390, U 





IEQ 

INTEGER 


10130, S 

10140 

,u 









If LAG 

INTEGER 


2320, S 

2330 

,u 

2 340 i U 

2 3 50 , U 

2360 ,U 

2460, S 

2470, U 

2480, U 

2490, U 

2500, U 




9130, S 

9460 

,u 

9590, S 







• 

IFO 

INTEGER 


R32C.S 

8490 

,s 

849o, U 

852U.U 

8520, U 

8540, U 

8540, U 

1 800C , S 

18150, S 

1 8 1 50 ,U 




1844C.U 

18450 

,u 

16460, U 

18470, U 








J-3.153 



INITIAL 

VARIABLE TYPE VALUE OIMENSIUN WHE«E/HHW USED 


IH 

INTEGER 

2270, S 

2280, U 

241'', S 

2420 ,U 

3040 , S 

3060, U 

3 30u , U 

3300, S 

3310, S 

3310,1^ 



4u80, S 

4090, U 

414C ,U 

44 2 (J , U 

4420, S 

442C , U 

4440, S 

4450, U 

4450, U 

4460, 1>P» 



4460, U 

4550, S 

456C.U 

4580, U 

4580, U 

4640, S 

4650 , U 

466G ,U 

4930, S 

49 30 , U 



<<940, U 

494u,S 

5830, S 

5840, U 

5850 , U 

58 6C , U 

5 8 7 0 , P 

5880, P 

600G, U 

759o, S 



7600, U 

7fc?l ,U 

7630 ,t) 

7 6 A (• , U 

7650, U 

7660 , U 

7660, U 

7670, U 

7670, U 

7680, U 



7 6 A j , U 

7690-.U 

769. ,U 

7700 , U 

7710, U 

7710, U 

7730, U 

7800 ,U 

7800, U 

78u0,U 



7b2l- , U 

78 3< ,1) 

78 3L , U 

783u,U 

7830, U 

7840 ,U 

7850, U 

7860, U 

7660, U 

7860 ,U 



7ri6l ,U 

78 70 ,U 

896-.: ,U 

9170, P 

9280, P 

9450 , P 

9770, U 

99 60 , P 

10180 , P 

108 50 , U 



lCRRO.U 

1C99- ,1) 

1124., ,U 

13 Q 6r. , S 

1 3970 ,U 

1 40 G u ,U 

14010, U 

1 40 10 , U 

1 40 1 0 , U 

1402'. ,U 



1 4 0 2 0 * U 

14( 2o , U 

1404.', ,U 

14C 50 ,U 

14060.U 

14070, U 

14080, U 

1 4 1 70 , U 

14170, U 

142CC.U 



142ot,,U 

1536., ,S 

153 7'.,U 

15761, ,U 

15770.U 

15780, U 

15930, U 

16450 ,S 

16460, U 

1673C ,U 



16 740, U 

1 724.. , S 

172 5'J.U 

1727v,,U 

17270, U 

17280, U 

17290, U 

17300, U 

17310, U 

17320, U 



17330, U 

1 73 4C , U 

17359,1) 

17360.U 

17370, U 

1738C ,U 

17390, U 

17400 ,U 

17410, U 

17420, U 



I743T.U 

1 7 53.. ,U 









IH ARM 

INTEGER 

5 9C , 0 

1060,0 

137J.U 

1740.U 

1 3 o Q , U 

2590, U 

3060, U 

3160, U 

3180, U 

3270, S 



4140, U 

456n , U 

4 6 oL , U 

4900 , U 

5760, D 

584U.U 

6100 ,U 

7160,0 

7600, U 

7970, U 



fU2 w ,U 

6040, U 

a 3 6 , u 

8 3 6'j ,U 

8400, U 

8440, U 

8710, U 

8730, U 

8750, U 

1367C ,0 



1397. f U 

149 5. ,n 

153 7...U 

16160, D 

16460 , U 

16900,0 

17250, U 

1764C ,D 

l"772o,U 

17740, U 



17760.U 

18020, U 

1 8( 4. ,U 

1 81. 60 , U 

1 8 IOC ,U 






I HI 

INTEGER 

409u , S 

41 80, U 









II 

INTEGER 

2570, S 

258. ,U 

2590 ,U 

2640 , S 

6950, S 

6960, U 

6990, U 

7000 *U 

8020 , S 

8050, U 



8..60.U 

838u,S 

84 19 , U 

842 U,IJ 

8730, S 

8760, U 

8770, U 

17740, S 

17770, U 

17760, U 



1 7 0 1 u , U 

1 782v ,U 

1 8040 , S 

10070, U 

lBuBC.U 

1 8340 , U 

18350, U 

0 



1 1 D 

INTEGER 

10 350 , U 

1C94C.U 

1 0960 , U 

K990.U 







IMJ 

INTEGER 

8o60 , S 

8w7u , U 

842'*, S 

847U.U 

8470, U 

8770, S 

8780, U 

17780, S 

17790, U 

1 789C »U 



1 7 9u 0 , U 

1 803w , S 

18130,1) 

1813'), U 

18280, U 

18290, U 

1 8300 ,U 

18310, U 



l ML 

INTEGER 

18350, S 

1 836( ,U 

1 83 7o » U 

1 84C0 »U 

18410, U 






I MM 

INTEGFR 

17820, S 

17931 ,U 

1794o, U 








IN 

INTEGER 

417C, S 

4 1 8 <j , U 

42 30 ,U 








INCRST 

INTEGER 

1320, S 

178C. ,U 

3350, U 








I NODE 

INTEGER 

2310, S 

2320, U 

2450, S 

2460, U 







INPUT 

INTEGER 

470, U 

6 7( ,0 

910,0 

6400, U 







INI 

INTEGER 

2 3^0, S 

2310,1) 

244o, S 

2450, U 

4160, S 

4170, U 





IN2 

INTEGER 

2300, S 

2310,11 

2 3 70 ,u 

2440,5 

2450 ,U 

2510, U 

4160, S 

4170, U 

4250, U 


IPJ 

INTEGER 

8060, S 

8070, IJ 

84lo,S 

84 70 ,U 

8470, U 

8760, S 

8780, U 

17770, S 

17790, U 

1787C ,U 

/ 


1783", U 

16o7. , S 

18130, U 

18130 ,U 

18240, U 

18250, U 

18260, U 

18270, U 



I PL 

INTEGER 

18340, S 

1 8 3 8 1 J , U 

18390, U 

18420 ,U 

18430‘, U 






1PM 

INTEGER 

17810, S 

179U..U 

1 7920' , U 









ffre-r 



INITIAL 

VARIABLE TYPE VALUE 0IMEN5IGN WHERE/HOW USEO 


IPRINT 

INTEGER 

80, D 

105G , 0 

1320, S 

1780 ,U 

5750, D 

5890, U 

5890, U 

6660,0 

11290,0 

10 

INTEGER 

2 56'. ,S 

259o, U 

2590, U 

2 59C ,U 

2590, U 

2600, U 

2600 , U 

2600, U 

2600, U 

ION 

INTEGER 

2250, S 

22 60 , U 








I ONI 

INTEGFR 

2250, s 

24CC , U 








IRSTRT 

INTEGER 

K 9,0 

5 0.. ,U 

610 ,U 

1C 70, D 

1320, S 

1370, U 

1390, U 

1780, U 

2060, U 



5770,0 

9'6C,D 

9210, U 

9320, U 






IT 

INTEGER 

5890 , S 

5 9 1C , U 

6g5U,S 

61 10 ,U 

6120, U 

6230, U 




ITAM 

INTEGER 

110,0 

620 , S 

6 3o , U 

650 ,U 

690, P 

720, S 

740, P 

1100,0 

4910, U 



566o, tj 

5820,11 

5 820, P 

507oi , U 

588c , U 

5890, U 

589C.U 

5900 ,U 

5910, U 



6220, U 

635' ,11 

6 39(i , U 

6 3 9 C , U 

6530, U 

6920, U 

6920, U 

6920, U 

6920, U 



11300,0 

1 1440 »U 

1 3 52u » U 

13580, U 

13780, U 





IT AMI 

INTEGER 

13780, S 

13810, U 








ITCOE 

INTEGER 

1090,0 

3980, S 

4400, U 

45C 0 ,U 

7180, D 





ITELF 

INTEGER 

1 '190,0 

1320, S 

179C.U 

2820, U 

4340, U 

7180,0 

8650, U 



ITH 

INTEGER 

7 89C , S 

do «o, 11 

8080, S 

blfO.U 

8100 , U 

8120, U 

8120, U 

8140, U 

8150.U 



8170, U 

8660 , S 

88o o , S 

88CC.U 

8820, U 

8830, U 

17700, S 

17800, S 

17800, U 



1 7960 , U 

1 7 9 7 0 » U 








I TP 

INTEGER 

lo C , D 
9060,0 

55C , S 

580, U 

610, U 

630 , U 

1070, D 

3280, S 

3350, U 

3510, U 

IT 1 

INTEGFR 

6 390 , S 

64CG,U 








IX 

INTEGER 

2580, S 

259fs,U 

2 590, U 

2590, U 

2600, U 

26C0.U 

2600, U 

2600 »U 

2600, U 

11 

INTEGER 

6 1 3l , S 

6141 ,U 

6760 , 5 

6770, U 

6770, U 

6780, U 

6780, U 

6790, U 

6790, U 



6 8-;0,'J 

6810 ,U 

681 ':,U 

6820, U 

6820 ,U 

6830, U 

6830 ,U 

6870, P 

6930, P 



7050, 'J 

729' ,U 

73CC , U 

773U , U 

8 100 , U 

8120, IJ 

815C ,U 

8170, U 

8510, U 



8 7VIMJ 

879'.-, U 

8 82 1 ' , U 

8829, U 

882C.U 

8830, U 

3830 ,U 

8630 ,U 

13580, U 



14C'Gu , U 

14010 ,U 

1401 >,U 

140 10, U 

1 4u 2 0 , U 

14020, U 

14O20, U 

14090 ,U 

1 4 1C 0 , U 



14 120, U 

1 4 1 3 «. ,IJ 

1 4 1 3 0* , U 

141 4v> , U 

1 4 1 50 , U 

14170, U 

14170, U 

14180, U 

1420 0 » U 



142 10, U 

142 K ,1.1 

14210.U 

14210, U 

14220, U 

1 42 20 , U 

14220, U 

14220, U 

14220, U 



1435C ,U 

14370 ,U 

143HJ.U 

14410, U 

14420, U 

14500, U 

14530, U 

14540, U 

14570, U 



1458t,U 

14580, U 

1459o, U 

14590, U 

14600, U 

1 460C , U 

14620, U 

14620, U 

14640, U 


3220, U 


5U2C , U 
59 AO , U 
653L , P 


6 1 50 , U 
17950, U 


5770, D 


6800, U 
6960 ,11 
87Vv,U 
13R1C ,U 
14120, U 
14200 ,U 
1 434L ,U 
14570, U 


J-3.155 



initial 

VARIABLE TYPE VALUE DIMENSION WHERE/HOW USED 


J 

INTEGER 

I27C, S 

1 2 7 0 , U 

1280.U 

1280, S 

1490, S 

149C ,U 

151C.U 

1510, S 

1600, U 

1 6 1*j 



1 680 , S 

169C.U 

1 7 0 U , S 

1720, U 

2650, U 

2650, S 

2660, S 

2660, U 

3620, S 

3630 ,U 



3640 ,U 

365; , U 

3660, U 

3760, S 

3770, U 

3770, U 

3780, U 

3780 ,U 

3 880, S 

3 890 , U 



3H9*,,U 

35 v . ,U 

39.k- , U 

39 1C. ,U 

3920, U 

43 1C , S 

4310, U 

4490,0 

4490 , S 

4 760., S 



477* ,U 

4 7 70 , U 

478. ,U 

4780, U 

5980, S 

5980, U 

6 1 60 , S 

6170.U 

6180, U 

61 80, U 



6 1 8U , U 

62 U* ,U 

62*' .< » U 

62 L 0 , U 

62 7l , U 

6270, U 

8030 , S 

8040 ,U 

6100, U 

8 1 C o , U 



8 12* ,U 

8120, U 

81 4m , U 

815L ,U 

815C.U 

8160 ,U 

8170, U 

81 70, U 

8170, U 

8 390 , S 



84* (>,U 

8 52*.' ,U 

852.,, U 

6 540 , U 

8540, U 

8740, S 

8750, U 

8790, U 

8790, U 

8 750,0 



1'’43- , S 

1 i 44*;,U 

104 6'.*, S 

1 J4 R*j , U 

1C 560, S 

10570, U 

1059C , S 

10620 ,U 

1C 640, U 

1068c ,U 



K-CBv, S 

107JI , U 

11.10 ,S 

1 1'.' 20 , U 

11040.U 

11 140.U 

11150, U 

11180, U 

11150, U 

1 1 1 5C , U 



1 1 2 1 ; , U 

11210,(1 

1 1 2 1 j , U 

1 16 30, S 

1 2 2 7 0 , U 

1227C.U 

12270, U 

1 22 70 , U 

12270, U 

12270, U 



12.T6C , U 

12361 ,U 

1236( , 1) 

1236*. ,U 

12360 ,U 

12360 ,U 

12 360 » U 

1246C ,U 

12460, U 

12460 ,U 



12 460 « U 

124 6*. ,U 

12460 ,U 

12460 ,U 

1247L ,U 

12 570 »U 

12570, U 

12570, U 

12570, U 

12570, U 



12570, U 

i 2 570 , U 

12580, U 

12580, U 

1 5900 , S 

1 59 1C , U 

15910, U 

1593u,S 

15940, U 

1594C.U 



17460, S 

174 71 ,U 

1 7 4 70* , U 

17500 , S 

17510, U 

17510, U 

17530, U 

17540, U 

17540, U 


JH 

I NT E GE R 

3 ;50, S 

3C6.-.U 

31 2t ,U 

3160, U 

3180, U 

6080, S 

6090, S 

61G0 «U 



JJ 

INTEGER 

69 70, S 

69e:>..,u 

6 490 , U 

7000 ,U 

8040,5 

0050, U 

8060, U 

8400, S 

8410, U 

8420, U 



8 750, S 

876li ,U 

8770 ,U 

17760, S 

17770, U 

17780, U 

17910, U 

17920, U 

17920, U 

17930, U 



17940, U 

17440 ,U 

180 8*.,, S 

1 8f 70 ,U 

18080, U 

18320, U 

18330,0 




JM1 

INTEGER ’ 

11150, S 

111 6< , U 









JUNK 

INTEGER 

20 1130,0 

1450, S 

1 53 J , S 

1 74G , S 

3270, S 

4900, U 





J1 

INTEGER 

729u,S 

7310,0 

7320, U 

7360 ,U 







JU 

INTEGER 

73o C , U 

73 1(. ,U 

7320, U 

736C , U 







K 

INTEGER 

1<*p*’,S 

1 5 9<’« , S 

162C , $ 

1630, U 

1720, S 

4180,5 

4190, U 

42 00 ,U 

4210, U 

4220 ,U 



469v, S 

4 70.-.U 

4 7 .).; ,u 

470*.' ,U 

47lC,U 

5970, S 

5980, U 

614C.S 

6150,0 

6180, U 



6180, U 

620*. ,11 

62, :),u 

6? 60 , S 

6270, U 

76CC.S 

7610, U 

7970,5 

8070, U 

8Q7u»U 



3 43';, S 

84 4 V ,U 

851'. ,U 

8523, U 

8540, U 

8710,5 

8780, U 

8780, U 

10440, S 

1045C ,U 



K'480, S 

1C491 ,U 

1* -5* 0 , S 

1 u 5 1 *i , U 

10570, S 

10580, U 

10620 , 5 

10630, U 

1 C 64*J , S 

10650 ,U 



l0 7v'.*,S 

1G7U ,U 

neio.s 

10820, U 

11610, S 

11620, U 

11630, U 

13090, S 

13100, U 

13110, U 



13280,$ 

1329'. ,U 

13 3* 0 , U 

1 4c(‘ J , S 

14120, U 

14120, U 

14130, U 

14130 ,U 

14140, U 

14140 ,U 



142 10 , U 

14210, U 

1422'., U 

14220, U 







KA 

INTEGER 

6960, S 

6980 ,U 









KEY 

INTEGER 

910, U 

11 Bo ,U 

3 7 1 u , U 

3950, U 

11450, S 

11640, U 

1 2 590 , U 

12660, S 

15210, S 

1522C ,U 



15230, U 

1524* ,U 

1 52 5.: , U 

16340, S 

163 50 , U 

16360, U 

1637o, U 




KEYRS 

INTEGER 

1330, S 

139C.S 

1 5 vO , U 

1540, U 

1 750 , S 






KK 

INTEGER 

4680- , S 

469*. , U 

6980, S 

6990 , U 

6990 ,U 

7000, U 

7730, S 

7740, U 

7750,0 

7760 ,U 



777I-.U 
18330, U 

778' ,U 

7790, U 

8440, S 

8450, U 

8460, U 

18100, S 

18110, U 

18120,0 

1832C ,U 

KKP2 

INTEGER 

580, S 

590, U 

6 2 J , U 

6 50 ,U 

720, U 






KK I 

INTEGER 

7740, U 

7620, U 

7830, U 

7850, U 

7860, U 







lsre-r 



INITIAL 

VARIABLE TYPE VALUE DIMENSION wHERE/HOH USED 


KK2 

INTEC.FR 

7 7 5 C‘ , S 

78oC ,U 

7630 ,U 

7860 ,U 






KK 3 

INTEGER 

776C, S 

780.i ,U 

76 20 ,U 

7S3v,,U 

7850, U 

786C , U 




KK5 

INTEGER 

7770, S 

7820, U 

7840 ,U 

7850 ,U 

7870, U 





KK6 

INTEGER 

776' ,S 

76CC ,U 

7840 ,U 

7870, U 






KK7 

INTEGER 

7790 , S 

78oO,U 

782'. ,U 

7840 ,u 

735u,U 

7870 ,U 




KM J 

INTEGER 

18331;, S 

1 837o,U 

13390 ,U 

1841C ,U 

18410, U 

18430, U 

18430, U 



KML 

INTEGER 

5 46C, S 

84 7t ,U 

«47o,U 

18120, S 

18130, U 

18130, U 

18260, U 

18270, U 

1 82 7C , U 



18310 *U 

1 83 1( ,U 








KPJ 

INTEGER 

18320, S 

1 83 60 , U 

1838' ,U 

184GG.U 

1 8400 ,U 

18420, U 

18420, U 



KPL 

INTEGER 

845C , S 

84 7 v. , U 

8470, U 

181 10 , S 

18130, U 

1813C.U 

18240, U 

18250, U 

10250, U 



18290, U 

16290 ,U 







KY 

INTEGER 

584C , S 

5 8 7v,,P 

588o,P 

5950, U 

8960, U 

9430, P 

9740, P 

9770, U 

1G1C0.U 



10 360 ,U 

1 078,. , U 








KYP 

INTEGER 

4660, S 

46 70 , U 

1537v , S 

1 53 Bo ,U 

15470, U 

15560, U 

15750, U 

16460, S 

16470, U 



1 6660, U 

1 72 5v ,S 

1726o, U 

1 74 40 ,U 






L 

INTEGER 

6330, S 

8360, U 

H 4 80 , U 

8580 ,U 

8580, U 

8590, U 

8 59C ,U 

8600, U 

86uO,U 



861 0 , U 

86 1C , U 

86 1C ,U 

8620 ,'J 

8620, U 

8630, U 

8630 , U 

8630, U 

1C 380 , S 



11160, S 

11 180, U 

I 1 1 8 ' ■ » U 

11190,U 

13110, U 

13120, U 

13120, U 

13120, U 

13120, U 



13130,$ 

1313C ,U 

131 ?•.< ,U 

13140 ,U 

13150, U 

13150, U 

13150, U 

13160, U 

13160, U 



1 3 1 V, , U 

131 7i ,U 

1 3 1 7.1 , U 

1 3 1 80 , U 

13180 ,U 

1 31 80 » U 

13180, U 

13290, S 

13310, U 



13320,11 

1R321, U 

1 33 2*' , U 

133 30 , U 

13340 , U 

13340, U 

1 3 340 , U 

13340 ,U 

13350, U 



133 61 ,U 

1336c, U 

133 60 , U 

1336,. ,U 

1 3 3 70 , U 

13370, U 

13370, U 

13380 ,U 

13380, U 



13380, U 

13390,11 

13390, U 

13390 ,U 

1339C.U 

13410, U 

13410, U 

1 34 1C ,U 

13410, U 



13430, U 

1 3430 , U 

1 3 4 3 v » U 

13430, U 

13440, U 

13440, U 

13450, U 

13450 , U 

13450, U 



13460, U 
1 3480 , U 

13460 , U 

1 34oC , U 

1 34 7o , U 

13470, U 

1 3470 ,U 

13470, U 

13480, U 

13480, U 

LARGE 

INTEGER 

49C , S 

690, P 

700 ,U 

5660, U 

6340, S 





LE 

INTEGER 

6 330 , U 

1 5040 ,U 

16 240 , U 







LK 

INTEGER 

2v4 970,0 

218'.', S 

2190.S 

2200, S 

3280, S 

3330, S 

3340, S 

491C.U 

9010, D 



l-> 130 ,U 

10300,0 

10393, U 







LL 

INTEGER 

fi J t D 

6 v o , S 

6 1> ' , S 

62 'j , U 

105C , D 

5750,0 

58 20 , U 

5870, U 

5880,0 



8360, S 

84 50 ,U 

8460 , U 

1129u,D 

11440, U 

13520, U 

18020, S 

1811G.U 

18120, U 


18350, U 


183CC.U 


18280, U 


1025C.U 


16510 ,U 


86C0.U 
1039 L ,U 
1 31 3V »U 
131 <>0 t U 
1332C.U 
13350, U 
13380, U 
1342L ,U 
1 34 50 » U 
1 346v » U 


982L , D 


6660 »D < j"' 

18340. Uco 


.157 



INITIAL 

variable type VALUE DIMENSION WHERE/HTk used 


M 

INTEGER 

7910, S 

7970 ,U 

7990, U 

8210, U 

8210, U 

8210, U 

8220, U 

8230, U 

8230, U 

8230 ,6° 



8246, IJ 

82 AC ,U 

82 AC , U 

B25o,U 

8260, U 

8260, U 

8260, U 

8270, U 

8280, U 

8280 ,U 



8 2 80 » U 

829o ,U 

829*. ,U 

8290, U 

833C ,U 

868G , U 

8710, U 

8860, U 

886C , U 

8860 , U 



SOU.'J 

88 7*.. , *J 

8 8 n-j , u 

6880 ,U 

8660, U 

8890, U 

8890 ,U 

8890, U 

69oO,U 

890c, U 



891o, U 

89U ,U 

8 Q 1 o , U 

1(260, D 

1 32 30 , S 

1 32 AO , U 

132AO.U 

13250 , U 

13250, U 

1325C.U 



1326' ,U 

1 32 6i ,U 

13 260, II 

132 6-J ,U 

1327C.U 

13270, S 

13270, U 

13270, U 

13270, U 


MAT MUT 

INTEGER 

9170, U 

9280 ,U 

9960 ,U 

10850 ,D 







MPRINT 

INTEGER 

29C, S 

3 AC ,U 

37C ,S 

3 PC , S 

38C , U 






N 

INTEGER 

50, n 

9fii ,D 

228-. ,S 

2320, U 

2A?0 , S 

2A60.U 

5710,0 

586C ,S 

5970, U 

6090 ,S 



6 1 5 v , U 

6 3 3o , U 

6550 ,D 

7o 70 , D 

9020, D 

9190,11 

93 1C ,U 

9480 ,U 

9640, U 

983C , D 



9 9V:,'J 

lf.ii',' ,U 

1C 2c'9*U 

1 i;55C , S 

1056C ,U 

1 ObL'O , S 

106 1C , U 

10640, U 

10640, U 

106 AO ,U 



1064-; , u 

131'. • ,U 

1 31 ,U 

1312o,U 

1312o.il 

13120, U 

13120, U 

13120, U 

13130, U 

1313C ,U 



13130, U 

1313", U 

1313; ,U 

1313c ,U 

13140*0 

1315., U 

13150, U 

1 3 1 50 , U 

13150 ,U 

1315v ,U 



13 1 50 , U 

1 3 1 oc » U 

1 3 1 6‘. , U 

1317c ,U 

1 3 1 7 C> , U 

1 3 1 70 , U 

131 70 , U 

1 3 1 7 0 , U 

13170, U 

1316c ,U 



1318 j,U 

1318. ,'J 

1 3220 , S 

1 32 A' i , U 

13250, U 

132 5c ,U 

13260, 

1 32 6G , U 

13260, U 

1327C ,U 



13270, U 

1327c, U 

1327c, U 

13icO ,S 

1 3^20 , U 

13320 ,U 

13 320, U 

13320 ,U 

13320, U 

1333. , U 



1 3 34 , U 

1 3 3 A .. ,'■) 

133 AC ,U 

1 33 AC , (J 

13340 ,'J 

1 33 AO , U 

13350, U 

13360 ,U 

13360, U 

13 3 6c ,U 



1 3 36u , U 

1 3 3 6C ,U 

1 3 3 7>. , U 

1 33 70 , U 

1 33 70 ,U 

1 3380 , U 

1 3 3 8 C , U 

13380 ,U 

13380, U 

1333.., U 



13380, U 

1330i ,U 

13390, U 

1 3390 , U 

13A10.U 

1 3 A 1 0 , U 

13A10.U 

l 34 1C , U 

13410, U 

1342c U 



1 3 A 3 0 , U 

1343c, U 

13A30.U 

1 3A3i ,U 

1 3A 30 , U 

13A30.U 

1 3 AAC , U 

13450, U 

13450, U 

1345c, U 



13450 ,U 

13459, U 

1 3 A 50 , U 

1 3 A 60 , U 

1 3A60 , U 

1 3A7C , 1) 

13A70.U 

13470, U 

13470,0 

1 3 4 7 C , U 



13470, U 

1348'. ,U 

134*,. ,U 

13480 ,U 

13610,0 

14930,0 

16120, D 

16920,0 



NA 

INTEGER 

lUuC.S 

1 1 C 30 , S 

11C 3c ,S 

lit AO, U 







NCARD 

INTEGER 

27C.S 

310 ,U 

320, U 

320 ,S 

A 10 ,U 






NC ARDS 

INTEGER 

1230 ,S 

1 2AC ,U 

1250, U 

1 A50 , S 

1A60.U 

1A80 »U 





NCASE 

INTEGER 

22C, S 

20c ,U 

- 280 , S 

350, IJ 

A2C ,S 

A20 , U 

A30.U 

460, S 

480, S 

48C ,U 



750, U 










NCASES 

INTEGER 

200, S 

2 10,0 

A , d 

750, U 







NC F 

INTEGER 

3980, S 

AO 70 ,U 









NCFl 

INTEGER 

A 1 1 G , S 

A12l.,U 









NCLCST 

INTEGER 

1 LAO , D 

133C , S 

17 9C ,U 

57 Ao , D 

6650, D 

6930, U 

13630,0 




NCLOSE 

INTEGER 

970,0 

132. ,S 

1790, U 

90 10 , D 

9820,0 

lOlCO ,U 

10300, D 

10360, U 



NO 

INTEGER 

120,0 

201 ,S 

2n\ ,U 

3 3 0 , U 

AAO,U 

1110,0 

1230, U 

1 2 7C , U 

1320, Cl 

1340 ,U 



13 7-J.U 

17So ,U 

21 1. ,U 

2 l 60 , U 

2250, U 

2300, U 

2AA0.U 

2870, U 

3980, U 

4 1 1 C , U 



A 1 6 0 , U 

AA2...U 

14970 ,0 

1 5o 80 , U 

15170, U 

16170,0 

16300, U 




NOIRCT 

INTEGER 

2160, S 

2 1 7 0 , U 

216.: ,U 








NOP 

INTEGER 

15170, U 

1 5 1 7 f « S 

1 5 1 riC , U 

15] 90, U 

15280 ,U 

15200, U 

15300, U 

1 5 3 1 u , U 

15A20.U 

1 544c ,U 



1630-J, S 

1 63 Cc » U 

1 o 3 1C , U 

16320, U 

16330, U 

16AU0 ,U 

16410, U 

16500, U 

1652C.U 

1 6 58c ,'J 


^sre-r 
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NDPP2 

INTEGER 


15300, S 

1532C.U 









NDP 1 

INTEGER 


15420, S 

1 5430 ,U 









N0P2 

INTEGER 


1 51 80 , S 

15210, U 

16310, S 

16340, U 







ND2 

INTEGER 


15290, S 

15320, U 

1 5 3 30 , U 

16410, S 

16420, U 






NELEMS 

INTEGER 


5C , D 

960,0 

1 53'.i , S 

1580.U 

160G.U 

1620, U 

1630, U 

168C ,U 

1710, U 

1 79t , U 




196v.,U 

195-. ,IJ 

2 64o , U 

26RL ,U 

268C ,U 

268C ,U 

2690, U 

2690 ,U 

2690, U 

2 7 C t , U 




2710, U 

27 3v.,U 

291< ,u 

2°3C , U 

3u30 ,U 

3300 ,U 

3310, U 

36 1C ,U 

3750, U 

3 8 7 g , U 




43.G.U 

4470,U 

446 j , U 

4 5 7 0 , U 

475L ,U 

4930, U 

4940, U 

5710,0 

6550,0 

6760, U 




7u7j,D 

902-. ,n 

98Vj,0 

1C280.U 

1 0 6 6 C ,0 

1127C ,D 

1 1610, U 

13U90.U 

1322U.U 

1323C ,U 




13200, U 

13290. U 

1 3 3 v. G , U 

1 3 6 1 0 , D 

1 493u * 0 

1 6 1 2 0 , U 

16920,0 

17140, U 

17620,0 


NEO 

INTEGER 


5 3,0 

91)0,0 

1970, S 

1982 ,U 

2280 ,U 

2420, U 

2560, U 

4180 ,U 

4650 , U 

571 C , D 




5 86-';,U 

60 6v , IJ 

6«.4,;.,U 

655'i ,0 

6960,0 

707C ,0 

7730, U 

9020,0 

9170, P 

918C.U 




9 2 8 0 , P 

93C/,U 

94 73 , U 

9630 ,U 

983*'< ,0 

9920, U 

9960 ,P 

9990, U 

10190, U 

1039-', U 




1 )4>u ,U 

1 04?'.' ,11 

104 U 

1C46C ,U 

1 0470 , U 

1050C , U 

10500, U 

105C0 , U 

1C5CC , U 

1054C ,U 




K590,U 

1 v.6 jv ,U 

lv72 rt ,U 

11270,0 

11420, U 

13500 ,U 

13610,0 

14000, U 

1493C , 0 

15930, U 




1612N, 0 

1 6 ° 2 ,0 

1 753t,,U 

17620,0 







NEQT 

INTEGER ^ 


5C , 0 

5 In ,11 

980,0 

1980, S 

2020, U 

3260, U 

33 2C » U 

3320, U 

3320, U 

3370, U 




357'v»U 

3 59v. ,U 

37 30, U 

3740, U 

3830, U 

384C.U 

3850, U 

4180, U 

465C.U 

4730,0 




474LVJ 

4 89'. , IJ 

4 9 8*',' , U 

500'" ,U 

5000 ,U 

5000, U 

5710,0 

6550,0 

6730, U 

7070,0 




9020 , 0 

924u, U 

93 6( ,U 

9830, D 

1001L ,U 

10 2 BO r D 

11270, D 

13610,0 

1493C.D 

15930, U 




•16120,11 

1692V. ,0 

17530, U 

177,20,0 







NF 

INTEGER 


10990, S 

1 lo4L ,U 

1 105C ,U 

1 1060 , U 

11060, U 

11070, U 

1 1070 , U 

11080, U 

11130, U 


NFF 

INTEGER 


1 1 1 3'j , S 

1118IJ ,U 

11 190, U 

1 1 2 1 0 , U 







NH 

INTEGER 


5( ,0 

980,0 

1 37~,U 

1 3 7 L , S 

1740, U 

1740, S 

1 800 , U 

1 800 , U 

I960 ,U 

2CC0.U 




2270, U 

24 If. ,'J 

2550, U 

3C5C ,U 

3270 ,U 

3270, S 

3300, U 

33 1C , U 

3620, U 

3760 , U 




3«R-j,U 

4ii 8-i , U 

4 4 2 , U 

4440, U 

45 50 , U 

4640, U 

4760, U 

4900 , U 

4900 , U 

4930.U 




494'.-, IJ 

5710,0 

5 8 30 , U 

6i u , U 

6010, U 

6080 , U 

6 55L , D 

6950, U 

7070,0 

7591. ,U 




791 , U 

80 lo , U 

8v' 30 , U 

8 3 30 , U 

8370, U 

8390, U 

8430, U 

8680, U 

8720,0 

8740 ,U 




9-20,0 

98 3i. ,n 

I028v. ,0 

11270,0 

13610, 0 

13960, U 

14930, D 

15C80.U 

15090, U 

153 6C ,U 




1612' ,0 

l 64 50,11 

1692-1,0 

17240 ,U 

17620, D 

17710, U 

17730, U 

1775C.U 

18010, U 

1803C ,U 




1 0 5 0 , U 

1 8 vi 90 ,U 









NHNS 

INTEGER 


50,0 

980,0 

2< v.vj, S 

5710, D 

6550,0 

7070,0 

9020,0 

9830,0 

10280, D 

11270,0 




13610,0 

14930,0 

1 6l 2 : ,0 

16920,0 

17620, D 






NHP 

IMTfcGFR 


90,0 

1 06v ,0 

1 5 3( , S 

1700,0 

3040, U 

5760, D 

7160,0 

13670,0 

14950, D 

16160,0 




169 jo,0 

17640,0 









Nt 

INTEGER 


11 120, S 

11130,0 

111 80 , U 

lH8v. ,U 

11190, U 

11190, U 

11210, U 

11210, U 



NIX 

INTEGER 


lv. 280,0 










NX 

INTEGER 


1098 1, S 

nun ,U 

11050, U 

1 1L60 , U 

11060 ,U 

11C7C ,U 

11070, U 

1 1070 ,U 

11090, U 


NKK 

INTEGER 


11090, S 

11170 ,0 

111 70 , S 

1 1 1 80 , U 

Ill9v; ,U 

11200, S 

11200, S 

11210, U 




J-3.159 
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NLTERM 

INTEGER 

740, U 

336C , U 

5820, U 

NLTRMS 

INTEGER 

6630,0 

7120,0 


NM1 

INTEGER 

llloO.S 

11110,0 


NN 

INTEGER 

5v , 1) 

96u , 0 

3120 , S 



707’., 0 

9C2(:,0 

9390,0 



K 5 7t ,U 

10621 ,U 

1 j64j,0 



13610,0 

14930,0 

16120,1) 

NNOOES 

INTEGER 

5u , 0 

980,0 

I960, S 



4 6 ft 0 , U 

57U ,0 

596j, 0 



1 80 0,0 

11279,0 

13610,0 

NNP I 

INTEGER 

<5390, S 

94c.., 0 

941 j , U 



9690,0 

9700, U 

9 7 L 0 » U 

NODRE 

INTEGER 

lcC9<‘ , S 

lOlCG, S 

1 3 l'.d , U 

NODRES 

INTEGER 

97 ; ,D 

2llo,S 

2 1 2o , 0 



3340.U 

49U ,U 

4 9 1 0 , U 

NO IT 

INTEGER 

80,0 

59L , S 

1 v>5( , 0 

NP 

INTEGER 

2160, S 

2 1 7c » 0 

21 Hc,U 

NPI 

INTEGER 

9190, S 

9200, U 

92L o , U 



9330, U 

935c, U 

9359,U 



9 650 ,11 

99 3i , S 

9940, u 



luvj 10 , u 

1001C,U 

1 O'* 4C , u 

NPK 

INTEGER 

615C ,S 

6 1 80 , U 

6 2 0 , U 

NPRNIT 

INTEGER 

1 >0,0 

1C7j«0 

1 330, S 

NPRNMS 

INTEGER 

1 3 3 0 » S 

1800,0 

3151.U 

NPRNT 

INTEGER 

1G0 , D 

1C7C ,0 

1330 , S 

NPRNTF 

INTEGER 

(iu , 0 

990,0 

1 3 3G , 5 



9840,0 

102 9c ,0 

1 128o, D 

NPRNT H 

INTEGER 

1090,0 

1330,$ 

179. ,U 

NPRNT L 

INTEGER 

oC , 0 

99!. ,0 

133”, S 



90 3C ,0 

9840,0 

lc?9' ,0 



1531 G,0 

161 3c ,0 

162 5. : ,U 

NPRNT 0 

INTEGER 

5c, D 

980 ,0 

1320.S 



11 280,0 

11270,0 

1361o,0 


6530 ,D 


3 1 3 0 , U 
9530, U 
U-7C0.U 
16920,0 

3140, U 
9680 , U 
10960, S 
17620,0 

3 1 70 , U 
9830,0 
10970, l) 

3190, U 
1C280.D 
111C0.U 

5710,0 
10440, U 
11270,0 

5850, S 
10480, U 
11400,11 

6550,0 
10500,0 
13540, U 

197(.,U 
6 1 30 , U 
14930,0 

2 3 70,1) 
6 2 5 (.■ , 0 
16120,0 

2510, U 
655c » D 
1692C ,0 

2570, U 
7070, D 
17620,0 

2770.0 

9020.0 

2770, U 
9830,0 

42 50 , U 
102ec,'J 

94CL ,U 
97C0 ,U 

95 30,5 
9710, U 

9540, U 
1 1 400 , S 

9 55C , U 
11410, U 

9550, U 
13540 ,S 

9560,0 
1 3550 , S 

9680, S 

1 C 110 , u 

lo 1 20 , U 

10350,5 

10360, S 

10360, U 

19370 , U 

10380,0 

21 30 , U 
9-10,0 

2 1 40 , U 
9820, D 

2190, 0 
1009c ,U 

2 2CC , U 
10300, U 

3280, U 
10350,0 

3280, S 

333C , U 

1350, S 

5750,0 

5900 , U 

6660,0 

6930, U 

1129C.D 


92 GO ,U 
9360 ,U 
9940 ,U 
1CC4C.U 

9220 , U 
936C.U 
9941. ,U 
100 50, U 

924C,U 
9480, S 
9940, U 
ICC 50, U 

9240, U 
9490, U 
100GC.S 
1006C.U 

9240 ,U 
9640, S 
10G10 ,U 
IOC 60 *U 

9250, U 
965G , U 
1 0 c 1 0 , U 
10200 , S 

93 1C ,S 
965C , U 
10010, U 
102 1C , 0 

1780, U 

5770,0 

639C , U 

6390, U 

9060, D 



17 00 ,U 

5770,0 

6380 *U 

6400 ,U 

9C60.0 



1790, U 
13620,0 

4010, U 
14940, D 

46C 0 , U 
16130, D 

5720,0 
16930, D 

6560, D 
17630,0 

7080,0 

9030,0 

454 3 ,U 

7180 ,D 






1 7 99 , U 
11280,0 
16390 , U 

4y 10 * U 
13620, D 
16930,0 

4130, U 
1494c, 0 
17630,0 

4230, U 
1506C,U 

5720,0 

15G90.U 

656C , 0 
15130, U 

7080, D 
15270,0 

1780, U 
1493 0,0 

5710,0 

16120,0 

5920, U 
16920,0 

6550,0 
17620, D 

7C7u , 0 

9020, D 

983c ,0 
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NPESTR 

INTEGER 


9430, U 

9740, U 

1C250 ,0 








NS 

INTEGER 


120,0 

14970,0 

2 O'. , S 
16170,0 

1 1 1 ■> »D 

1790, U 

2630, U 

2660,0 

4290, U 

43 1C , U 

4380, U 

449u, U 

NSI7E 

INTEGER 


50,0 
314-. ,U 
967o, U 
17620,0 

98 3,0 
317. ,U 
9830,0 

171 J,S 
31 9 ', U 
lo28o’,0 

173!), U 
5710,0 
11270,0 

1990, S 
5850, U 
11390, U 

20C 0 , U 
6550,0 
1 3 53C , U 

3080, U 
7070,0 
13610,0 

3090, U 
9020 ,0 
14930,0 

3120, U 
9380, U 
16120,0 

3 1 3C. , U 
952L ,U 
16920,0 

NSTRSS 

INTEGER 


li 4C ,0 

133'.,S 

1 7 90 , U 

574C , D 

6650,0 

6910, U 

6920, U 

6920, U 

6930, U 

13630,0 

NT 

INTEGER • 


120,0 
1668,'J 
3080, U 
4930 , U 

111': ,0 
1690 , U 
3f 90 , !J 
5000, U 

1 2 30 , S 
1 7 3 V , U 
3 1 3 0 , U 
1097;,S 

1440.U 
1740, U 
3140, U 
10980 ,U 

1450, U 
1 79C , U 
3270, U 
14970,0 

1490, U 
2 6 5 0 , U 
3280, U 
16170, D 

1530, U 
26 8C ,U 
33C0.U 

1 5 90 , U 
2720, U 
332o, U 

1610 ,U 
2740, U 
4900, U 

1 648 , U 
2770 ,U 
491C ,U 

NTF 

INTEGER 


3260 , S 

3290, U 

4893, S 

4920, U 







NTHETA 

INTEGER 


1040,0 
13620, U 

1 34v. , S 

1340 ,IJ 

1810 ,U 

1310, U 

1930, U 

5740, D 

6050, U 

6650,0 

1 363C ,0 

NW 

INTEGER 


1127C.D 










P 

REAL*e 

74 

14890,0 
15570, U 

1 50 8C , S 
1576v ,'J 

1 5( 9.0 , U 
16140, D 

151 78 * S 
1 6300 , S 

15230, S 
16360, U 

15230, U 
16360, S 

15270, U 
1 6 39C , U 

15310, U 
16530, U 

15480, U 
1661G.U 

1552C ,U 
1 66 70 , 1) 

PAV 

REAH-B 


1458C, S 

14610, U 

146 30 » 'J 








PH 

RE AL*8 

50 

1030, D 
1456C.U 

2 7 2 C , S 
16880,0 

2740.S 

2790, U 

2800, U 

3030, U 

6610,0 

7140, D 

13650,0 

1456C , U 

PHP 

RE AL*8 

50 

l03u»D 

1715C.U 

2721 ,S 
17160, U 

274U.S 
1 7 1 6 C , U 

3'J30,U 
17190, U 

66 1C , D 
1 7 1 9 C , U 

7140, D 
17210, U 

13650,0 
17210, U 

1 4220 , U 

16880,0 

1 7 1 58 , U 

PHPP 

REALMS 


17170, S 

1 7 1 90 , S 

17210, S 

17360, U 

17390, U 






PHPPI 

REALMS 


17150, S 

1717c, U 









PHPP2 

REALMS 


17160, S 

17170, U 









PI 

REALY8 


1 9 1 C , S 
16660 ,U 

1 92C , U 
16630 ,U 

15u?0 , S 
1 6 64 c , U 

15570, U 
17*. 10, S 

15530, U 
17020 ,U 

15760, U 
1 7t 40 * U 

1 5 770 , U 
17C60, U 

15780, U 
17080, U 

16230, S 

16550,1) 

PINT 

RE AL*8 


15480. 5 

16530. 5 
1 6 730 , U 

15520, S 
l65 3'..,U 

15570, S 
1 6 55v , U 

1 56 1(! , S 
1 6550 , S 

15680, U 
16610, U 

15690, U 
16610, S 

15760, S 
1663C , S 

15830, U 
1663C ,U 

1 5840 , U 
16670, S 

16480 , S 
16700, U 

PI 02 

RE AL*8 


17690, S 

1795C ,U 

1 7 9 6 u , U 

17970, U 







PICK 

realms 


1 7990 , S 

1 8440' , U 

1R450.U 

18460, U 

18470, U 
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INITIAL 

VARIABLE TYPE VALUE DIMENSION WHERE /HOW USED 


PRINT 

REAL*8 


80,0 

1056 , 0 

5 750,0 

PS 

PFAL*8 


1000,0 

9040,0 

9850,0 

Q 

REALMS 

8 

14960,0 

1541- ',S 

1 56 40 ,U 




15.. 30, S 

15680 ,U 

1569< , s 




1BH1C, S 

15 82-:),S 

1 5 8 30 , S 




1732C, S 

1 7340 » S 

1736C-. S 

QB3 

REAL*8 


14120, S 

14200. ,U 

142 1C- , U 

0B7 

RFAL*8 


14130, S 

142 JO ,U 

14210., U 

0DC1 

RF AL*8 


4 9 7c » S 

499C.U 


QDC2 

REALMS 


4960, S 

4990, U 


0DC3 ' 

R E AL*8 


4950, S 

49 60 ,U 

4 9 7 ' , IJ 

OLOAD 

RE AL*8 

264 

940,0 

568c ,0 

6'..' 70 , S 




9 33vy , U 

93 3-. ,S 

9350, S 




IL'.'3C’ , U 

1C-140.S 

lw21C ,U 

OLOAOl 

RE AL*8 

10 20 

907C.0 

9171 ,P 

9220 »U 

QN 

REAL*8 

lv/20 

3t’,0 

14t,S 

950,0 




2590, U 

2 59, ,U 

3 3 2'J , S 




62-O.U 

b3 36,U 

6580 ,0 




702.!, U 

782, ,U 

7836 , U 


-• ' 


7850, U 

7856 , U 

7 b 6 3 , U 




9260, S 

42bl-,P 

9496, S 




1412L',U 

1694C.D 

1 4 1 3 r , U 

14130, U 

ONI 

REAl*8 

l02G 

36,0 

9 50 ,0 

20 4>j , S 




26>;(,,U 

3320 , S 

3 79 J , U 




92v..O , U 

9650 ,01 

9 860,0 

QN2 

KF AL*8 

1020 

30,0 

950,0 

4990, U 




9940 ,S 

9960 ,P 

10C4C, S 

OP 

REALMS 

1 6 2 0 

3C ,0 

950 ,0 

342C ,U 




6 7 4 1 j , S 

0 96 *. , S 

6990 ,U 




13690,0 

14910,0 

16940,0 

QPR 

REAL*8 

8,5 

6630, D 

6990 ,U 

7 0 v , U 




8256, 'J 

826,' , S 

8266* U 




859?., S 

860 j,S 

8660, U 




b 8 6 j » S 
891C , S 

8876, U 

8 8 70, S 


6660 « D 1 1 290 « D 


15640, S 

15650, S 

15650, U 

15660, S 

1566C.U 

15670, S 

15670, U 

1 5690 , U 

15700, U 

157oO,S 

15710, S 

15710, U 

15790, S 

15300, S 

15840 ,S 

1585C ,S 

15860, S 

15910, U 

16960,0 

17280, S 

17300, S 

17380, S 

174UC.S 

17420, S 

17470, S 

1747o, S 

17510, U 



4990 t U 


61 80 ,U 

618C,,S 

6200, S 

6200, U 

6270, U 

8980,0 

9280, P 

93 50 , U 

9490, U 

9500, S 

9650, U 

9790, D 

9960, P 

1C03C , S 


9220,5 

9240, S 

9240, U 

9330, S 

9350, S 

9500, S 



2630 , S 

2336 , S 

234C.S 

2350, S 

2369, S 

259C.U 

2 59c 

,U 

3380, U 

3390 , U 

4999 ,U 

5000, U 

569C ,0 

5980, U 

613C 

,U 

7? 00,0 

7800, U 

7 8 0 C , U 

7 800 ,U 

7860 , U 

7820, U 

7620 

,u 

78 36' , U 

7830, U 

7840, U 

7840, U 

784C ,U 

7650, U 

7S5C 

,u 

786 0 ,U 

7866 ,U 

7870, U 

7870, U 

7870 ,U 

8990,0 

92 OC 

rU 

965u , U 

9806 ,D 

9940, U 

1005U.U 

10210, S' 

13690,0 

14120 

• U 

4140, U 

14146 ,U 

14216, U 

1 42 1C , U 

1422C ,U 

14220, U 

1491 v 

,0 


2470, S 
3460, S 
9940, U 

2480, S 
4990, U 
10040, U 

2490, S 
5690, D 
10C50.S 

2 50 G , S 
6580,0 
13690,0 

26C0.U 
7200,0 
14910, D 

26QC , U 
8990,0 
16940,0 

2 600 , U 
9170, P 

5690,0 

13690,0 

6580,0 

1491C.D 

72 OG , 0 
16940,0 

8990,0 

9650, S 

9800,0 

9940 i U 

3430, S 
7CC0.S 

3430, U 
72 L o v D 

3430, U 
8990,0 

4990, S 
9350, U 

5000, U 
9800, D 

5690,0 
10010, U 

65 66 , D 

10C6C ,u 


7120 ,D 

799u, S 

8210, S 

8 2 1 0 , U 

8230, S 

8230, U 

8246, S 

8280 ,U 

8280, S 

8290, S 

8 300 , U 

8580,0 

8580, S 

8590, U 

8616, S 

8610, U 

8620, U 

8620, S 

6630, S 

8630,0 

8360, U 

888 3 , S 

8880 ,U 

8890, S 

8890, U 

8900, U 

8900.S 

8910, U 


QPRIME RE AL*8 6870, U 7o50,D 


J-3.162 



INITIAL 


VARIABLE 

TYPE VALUE 

DIMENSION 

WHEME/HHK 

OSEO 







QP1 

R E AL*8 

1020 

30,0 

526 ,S 

950 ,0 

3326, S 

3410,0 

3420, S 

5000,0 

5690,0 




8990,0 

9240,0 

98v3 ,0 

ic:i6,o 

10060, S 

13690, D 

14910,0 

16940,0 

00 

RF AL*8 

8 

14960,0 

1589'. ,S 

1 59 lu , S 

15010, u 

15940 , U 

16960,0 

17490, S 

17510, S 

0$ 

KE AL»6 


7C ,0 

956 ,0 

5690,0 

6580, D 

72C0.D 

8990,0 

9800,0 

13690, D 

OSS 

REALMS 


lul-10 , S 

1C036 ,0 







QUES 

RF AL*8 


1496u,0 

16960,0 







Q1 

»E AL*8 


230C.S 

23 3t ,0 

2446 , S 

2470,0 





02 

REALMS 


2 3( 0, S 

2340,0 

244. , S 

24 BL ,0 





03 

R E AL *8 


23C0, S 

2 3 50 ,U 

2443 , S 

249.: ,U 





04 

REAL*8 


2366', S 

2 3 6<- ,0 

244.., S 

2660 ,0 





R 

RE AL*8 

50 

1C3 U ,0 

27 2C , S 

2 74.;, S 

36 26 , U 

6610,0 

7146,0 

11310, D 

1143u, S 




115»0,0 

1159. ,0 

1159_, U 

1 159L ,S 

1 1 59C ,0 

11666,0 

11660, S 

11660 ,0 




12 27 v, , U 

1227' ,S 

1 2 2 7(' , U 

1 2 ?7u , 0 

12270 , U 

12276', 0 

12360,0 

12360,0 




12 36“ , U 

1 2 3 6v , S 

12366,0 

12466,0 

12466,0 

12460,0 

1 2 460 ,U 

12460 , S 




12473,0 

1257.; ,S 

12 5 7' ,0 

1267'. ,U 

12570,0 

12 570,0 

12570 ,U 

12570,0 




13''6u,U 

13 J6F ,S 

13066,0 

13076,0 

1 36 70 , S 

130 76,0 

1 3-J 70 , 0 

13CB0 ,S 




1 3v. 80 , U 

1 3'-' Rv , 0 

13120,0 

13120, U 

1312C. ,0 

13120,0 

13120, U 

13120, S 




13 130, U 

1313 0,S 

1 31 K ,U 

131 3C. ,0 

13140,0 

13150,0 

13150, S 

13150,0 




1 3 1 5 C , U 

13 16,0 

13l6.:-,0 

1317^,0 

13170,0 

1 3 1 70 , 0 

13170,0 

13170,0 




131 80 , U 

13180,0 

1324 j,0 

13240, S 

1325C.U 

13250,0 

13250, S 

13260, U 




13260, S 

1 3 2 7 ( • , 0 

1 327i. ,0 

1327C ,U 

13270, S 

13270,0 

13320,0 

13320, S 




13326 ,U 

1 332 v. ,0 

1 3349, S 

13340, S 

13346 ,U 

13346 ,0 

13340, U 

13340 ,U 




13360 , U 

1336. ,0 

1 3 3 fc J , 0 

13360,0 

13360,0 

1 3 3 7 6 , U 

13370,0 

13360,0 




133b.;, S 

1336'. ,0 

1 3 3 66 , 0 

1339C ,U 

1 3 8 9 0 , U 

13390, U 

1341C , S 

13410, U 




1 3 a 1 C , U 

1 34 K ,o 

134 3., ,S 

13436,0 

13436,0 

13430,0 

13430,0 

13430,0 




13460,0 

134‘ji. , S 

1 3450,0 

1 34 5C ,0 

1 3450 »U 

13460,0 

1346C.U 

13470, S 




13470; , 0 

13476,0 

134 r,,o 

134«o,0 

1 3486, U 

13480,0 

13510,0 

13650,0 




14220,0 

14220, U 

1 4 5 70 , U 

1457o, 0 

1 4661; , 0 

14600,0 

14620,0 

14620,0 




15090,0 

1 51 70 , S 

15246,5 

1524*.. ,U 

15270,0 

15310, U 

15490, U 

15530,0 




16140,0 

16300, S 

16373, S 

16370, U 

16390, U 

16540,0 

16620, U 

16680,0 

RAO 

RE AL*8 


1920, S 

1949,0 







RAV 

REALMS 


14570, S 

146<A' , 0 

14620, U 






RESFRT 

RE AL*8 


10C,0 

107C ,0 

5770,0 

9o 60 , 0 





RINT 

RF AL*B 


15490, S 

1 5530 , S 

1 5583, S 

15620, S 

15640,0 

15650,0 

15660, U 

15670, U 




1586 0,0 

15810,0 

1 5 822 , U 

16490, S 

16546,0 

1 6540 , S 

16560, U 

1 6 5 60 , S 




1664C, S 

16 64'.' , 0 

16660, S 

16710, S 

16746,0 




RL 

RE AL*8 


8670, S 

8866 ,U 

8870, U 

80 80 ,U 

8890, U 

8900, U 

8910, U 



6580,0 720C , 0 

17510, U 17540, U 
14910,0 16940,0 


11500,5 

11580 

,U 

11600,0 

1160' 

.0 

12360, U 

12360 

*u 

12460,0 

12466 

,u 

12580,0 

i25eo 

,0 

13080,0 

1 3u 3C 

,0 

13130,0 

1313.. 

,u 

13150, U 

1 3 1 50 

,u 

1317C.S 

1 3 1 0 

,u 

13260, U 

13260 

,u 

13320,0 

13320 

,u 

13350, U 

13360 

, s 

13380,0 

13330 

,u 

13410,0 

134 10 

,u 

13440,0 

1345C 

,u 

13470,0 

13470 

,u 

14170,0 

1 42 1 v 

,u 

14890,0 

15C6w 

,S 

15580.0 

16880.0 

15770 

,u 


15770. 5 l 5790 , 

16620. 5 16620, 


€9L "T-r 



INITIAL 

VARIABLE TYPE VALUE DIMENSION wHEKE/HOW USED 


RM 

RE AL *8 


7360, S 

737C ,U 

7900, U 

8676, U 






RSL 

RE AL*8 


79v.u, S 
86 1 (' , U 

821" ,U 
862 u,U 

8231, U 
8630, U 

8250, U 

8260, U 

8280, U 

8300, U 

8580, U 

8590, U 

RSTRNT 

RE AL*8 


570,0 

9 <j lc ,0 

9820,0 

1o3l 0 , D 






RZ 

RE AL *8 


1120,0 

722'. , D 








RO 

RE AL*8 

51 

1120,0 

2776 « S 

7220,0 

7310, U 

7316, U 

7360, U 

7360, U 



R2I 

RE AL*8 


7370, S 
77>0,U 

7406 , U 

7 4 10 , U 

7426, U 

7 48C , U 

74 90,'J 

7550, U 

7560, U 

7570, U 

S 

RE AL*8 

74 

14890 . 0 

16146.0 

1 50 86 , S 

15090 , U 

15170, S 

15250, U 

15250, S 

15270, U 

15310, U 

15540, U 

sees 

REALMS 

625 

7100,0 

b54i. ,U 

17610, D 

18470, U 






SETUP 

RE AL*B 


69C.U 

5666,0 








SHRS 

REALMS 


1461. C, S 

1 4 6 4 C. , U 








SHRT 

PEAL+8 


14670 , S 

14656 ,U 








SINE 

RE AL*8 

51 

1 0 2 C , D 

2726, S 

2746, S 

2746, S 

6660 , 0 

7130,0 

13640, D 

14120, U 

14130, U 

SINM 

RE AL *8 

50 

1C 30,0 

2800, S 

6610,0 

7140.D 

1 36 50 , D 

14170, U 

14200, U 

14200, U 

14220, U 

SINT 

RE AL*8 


15500, S 

1554C,S 

15590, S 

15630, S 

15760, U 

15710, U 

15780, S 

15850, U 

15860, U 

SI PH 

R E AL *8 


7340, S 

744C ,U 

7460, U 

74Pu, U 

7496 ,U 

7560, U 

7580, U 



SLVEEQ 

RE AL *8 


94C , D 

5686,0 

8980,0 

9791 ,0 

16270,0 

1 1 26u , 0 




SL2R 

REALMS 


7560, S 

764i. ,U 








SN 

RE AL*8 


6 1 1 o , S 

6 2 0 0 , U 

1 3 990 , S 

14060, U 

14080, U 

14240 *U 

14250, U 

14260, U 


SOLVED 

RE AL*8 


945C.U 

1C 1 86 , U 

11243,0 







SC2R 

P E AL*8 


758R, S 

762fi,U 








SPA 

RE AL*8 

655' 

1126o,0 

11411 ,U 

13550, S 







SPR 

P. E A L * 8 

2^4 

11260,0 

11432 ,U 

1 3 5 1 0 , S 







SSC 

P E AL*8 

125 

7(.9t,0 

8105, U 

eizo.u 

81 50 , U 

17660,0 

17966, S 




sscc 

RE Al*9 

625 

. 7 1 0 R » D 

8520 ,U 

17610,0 

1 84fct , S 






ssss 

RE AL *8 

62 5 

71 J0,D 

8546, U 

17610,0 

18450, S 







86G0 » 


7580, U 


1 578C »U 


16870, D 
1688C , D 


J-3.164 



INITIAL 


VARIABLE 

TV£>e VALUE 

OWENS ION 

tHERE/HOW 

USED 








STIFM 

REALMS 

6550 

1 >27C. ,0 
10 850, U 

1L19C ,U 

10450, S 
1C 87! ,0 

1 121c, U 

10490, S 
1 1 L 40 , U 

10510, S 
llC5u,U 

105BC.S 
1 106C , U 

10630, S 
11C60.U 

10650, S 
11C7C.U 

10710, S 
1 1070, U 

10790, S 
11070, U 

STRESS 

REAL*8 


6530, U 

13580,0 








ST RMS 

REALMS 


14370, S 

1 443< ,U 

14460 ,U 

14540 ,U 

14600, U 

■14640, U 

14660, U 



STRMST 

REAL*8 


14390, S 

1445C ,IJ 

144H3 ,U 

1 4 54 r , U 

1462C',U 

14630, U 

1464C ,U 

14680, U 


STRMT 

R E A L * 8 


14 3 AC , S 

1444 '.U 

144 75, u 

1454C ,U 

14610,11 

1464C , U 

14670 ,U 



STRNS 

RE AL*8 


14340, S 

144?C. ,1) 

1 44 60 ,U 

1454! ,U 

1 46 40 , U 





STRNST 

KfcAL*8 


1 4 3 o , S 

14450 , U 

1 4 4 HO , U 

14540 ,U 

14640, U 





STRNT 

PE AL*8 


1435u , S 

14440, U 

1447-.;, U 

14540, U 

14640, U 





STTMST 

REALMS 


14510, S 

1 46C0 , U 

1 46 C V , U 







STTRMT 

REAL48 


14500 , S 

1462C ,U 

1 4 7tv » U 







T 

RE AL*8 

5<; 

1020, D 
7 1 3u , 0 

2 69,, S 
1364t ,0 

3(;3,),U 
1441\,, U 

6600,0 

14420.U 

6780, U 
16870,0 

6790, U 
17C20.U 

6800, U 
17040 , U 

6810, U 
1 7060 , U 

6820, U 
17080, U 

TAPES 

REAL*8 


12 3,0 

lllo.D 

14970,0 

16170,0 






T0T2 

REALMS 


9290, S 

533C.U 

935 J ,U 







TEST 

REALMS END 


150, S 

3H. ,U 

330, U 

4CC ,U 






TFORCE 

RE AL*8 


4529 , U 

1 635c ,0 








TH 

RE AL*8 

50,5,2 

l')Ro,0 
45Hi.,U 
141- 10, U 
1736-J ,u 

33.JC.S 
4 7 7 v, , S 
14! 10, U 
17380, U 

363'i, S 
477c, U 
16150,0 
i r4',o,iJ 

3640 , S 
493C ,0 
1673C ,S 
1742c:, U 

3770, U 
7170, D 
1 6d90 , D 

3770, S 
8790, U 
17270, U 

3890, U 
8790, U 
17280, U 

385C ,S 
8790, U 
17300, U 

3910, S 

13710.0 

17320.0 

THCOE 

REALMS 


451C.U 

16100,0 








THCON 

REALMS 


1090,0 

7180,0 








THER 

RE AL*8 


1 0 83,0 

7 1 7 u , 0 

1371 j , 0 

16150,0 

16890,0 





THETA 

REAL*B 


10 40,0 
i 363v , 0 

134 V .,0 
1390, ,U 

181'', S 
1399" ,U 

1940, S 
14520, U 

1 9 4C , U 

5740,0 

6110, U 

6120, U 

6230,0 

THETAS 

RE AL*R 


1040., U 

5740 ,0 

6650 , D 

1363C ,D 






THETA1 

REAL*8 


623C.S 

624c ,U 

14520, S 

14540 ,U 

14640, U 






10820, S 
11180,0 


683C *U 


4460, S 
1 40 10, U 
1734C ,U 


6650,0 


J-3.165 



VAR I A9L E 

TYPE 

INITIAL 

VALUE 

OIMFNSiCN 

V.HERE/HOR 

USED 









THETB 

PE AL*8 


74 

14890,0 
15450, U 
1-39U.U 

15170, S 
1 546': , U 
1 639( ,U 

152« o,U 
15480, U 
1643C ,(J 

1 5220 , S 
15480 ,U 
16430, S 

15270, U 
1549C ,U 
16530, U 

15280, U 
1 54 90 , U 
16530, U 

15310, U 
16140,0 
16540, U 

15320, U 
163C0.S 
1654C.U 

1 5340 , U 
16330, U 
16 590, U 

15340. 5 

16350. 5 
166C0.U 

tht 

PE AL*8 



879l , S 

882«- ,0 

883o,U 

14010,5 

14090, U 

141C0.U 





thi 

RE AL*8 


5 

1 130 »D 

4421 ,S 

4460, U 








TIM 

RC AL* 8 



3990 , S 

40 50 ,U 









TIME 

P E AL*8 



70,0 
593.'., IJ 
136RL ,0 

6 3C , S 
635» , U 
13790, U 

64c, 0 
657 J,D 
l4vl.»,U 

690, P 
7190,0 
140 20 ,U 

730, U 
8790, U 

730, S 
9C 5o , 0 

1010,0 
9140, U 

4910, U 
9150, U 

5010, U 
9860, D 

5660, U 
9980, U 

T I ME P 

REALMS 



1 0 C ,0 

560, S 

580 ,U 

630, U 

lu70 ,0 

3280, S 

3500, U 

5770, D 

9060,0 


TMFT 

RF AL*8 



7l' , 0 

1010,0 

6570,0 

7190,0 

90 50 *D 

9860,0 

13680,0 




TM1 

PEAL*8 



13 79! m S 

138JC,U 









TOT I ME 

p E AL*8 



70,0 
9 86 c , 0 

580 ,U 
13681., 0 

1010,0 

1320, S 

1780, U 

38G0.U 

4000, U 

6570, D 

7190,0 

9C5G »D 

TPRINT 

PEAL*8 



1380C , S 

.13 81 J , U 









TPRNT 

RE AL*8 



3500, S 

3510 ,U 

4050 , S 

4060 , U 

50 10 , S 

5G2u , U 

5930, S 

5940, U 

6220, U 


TR140R 

REAL* 8 



3210, U 

17580,0 









TO 

REAL*8 



7C , 0 
3 790,1.1 
13630,0 

570,5 
8790, U 
14010, u 

660 , S 
9050, D 
1 4l lL , U 

1 o' 10,0 
91 40 , U 
14020, U 

3280, S 
9140, U 
14020, U 

3790, S 
9150, U 

3960, S 
9150, U 

4910, U 
9860,0 

6570,0 
998C , U 

7 1 9 J » 0 
998o ,U 

T 1 

REALMS 



70,0 
40 Ju, S 
136P0.0 

64U , U 
49 1C , U 
14010, U 

66i,U 
6570,0 
1402 >,U 

10 10,0 
7190,0 

3280, S 
8790, U 

3790, U 
90 50 , D 

3800, S 
9140, U 

396C »U 
9150, U 

3980, S 
9860,0 

3990, U 
99 80 , U 

T3 

RFAL*8 



9140, S 

935J ,U 

9990, S 

ICC 10, u 







T3M1 

RE AL*8 



9150, S 

924C , U 








• 

X I HI 

RF AL *8 



6100, S 
14250 ,U 

6 1 1 0 , U 
1426i ,U 

61 ?'>,() 
14270 , U 

13970,5 

13980, U 

13990, U 

14170, U 

14200, U 

14200, U 

14210, U 

XK 

RE AL*8 



7 6 1 C , S 

7620, U 

7 6 30 , U 

7640 ,U 

7650, U 

7700, U 





XKEEP 

RE AL*8 



33811, S 

34 30 , U 

341 C, , S 

3430, U 

9540 , S 

956C , U 

9690, S 

9710, U 



XN 

RE AL*8 


6 5. SO 

9^,0 , 0 
9540,0 

1 1 5C , S 
955-' ,S 

115 0, S 
969.". ,U 

3130, S 
97CC ,U 

31 70, U 
9700 , S 

5680.0 

9790.0 

8980,0 

91 7C »P 

9400, Li 

94C0 , S 

XP 

REALMS 


6550 

1CX0.D 

9850,0 

3140, S 
9960, P 

3190, U 

9C 40 , 0 

9280, P 

94C0.U 

9550, U 

9560, S 

9700 , U 

971C » S 


J-3.166 



INITIAL 

VARIABLE TYPE VALUE DIMENSION WHERE/HOh USED 


XI 

REALMS 


15A50, S 

1 5 5 20 , U 

15530, U 

1 55 AO , U 

16590, S 

16610, U 

16620, U 




X2 

RE AL*B 


15A6C, S 

15520, U 

15530, U 

155A0 ,U 

1 6600 , S 

16610, S 

16620, S 




YKP 

REALMS 


1538.:, S 
1662C , U 

15A50,U 
17260 ,S 

15Afc'.',U 

1728J.U 

1552L ,U 
17300 ,U 

15530, U 
173 3C ,U 

1 55AG , U 
17350, U 

1 6A7C * S 
1 7 AOO , U 

16590, U 
17A00.U 

166C0.U 
1 7A20 , U 

1661C.U 

17A2C.U 

Z 

REALMS 

51 

1120,0 

277C.S 

7220,0 

7320 ,U 

7320, U 







J-3.167 



FRCF5 


TVT T TAL 


vapiari f 

TYPE V4I.0E 

OtMFNSION 

WHFOF/HOW 

1 llSFfi 








tl 

RFAI *5 

167 

14"0",o 

1 564C , II 

1 5650,0 

15660,0. 

15670,0 

1 5650,0 

15600, 1) 

1 5700 ,U 

15710, U 




15500,(1 

1 551", |) 

15590,1) 

I 5530,IJ 

15540,0 

15550,(j 

15560, U 



AlPHK 

RF AL*5 


14070,1) 









fl'ir, 

RCAL*P 


15?or\S 

1 52’" ,11 








r.M&i.5 

R c AL *5 


14000,0 









CMTCK 

OCfti *q 

5,5 

14000,0 

1 5010,1) 








const 

RF A) *5 


1 407" ,0 









Cl? 

RFAl*5 


15740,5 

1 5750 , S 

1 576C , 0 

1 5770,0 

t 5750 ,0 





crns 

PF4I *R 


15540,'l 

1 5540,11 








OSIN 

RF AL*5 


155?o, (J 

1 547" ,|j 

1557", 0 

1 5570,0 






nry 

0 F A L * R 

1 

140RO,o 









cnpfc 

RPAL ♦? 

7040 

14Oio,0 

1 5040,5 

1 5040 , U 







FRCP 

RF A).*0 


14500,0 









FRCFS 

RF »(_*R 


14570,0 









HARM 

RF M*5 


14050,0 









r 

Jl|rcr,FP 


1 5050 , ij 

1 5"qo ,(| 

1 50qo, y 

15"50,S 

1 5090, U 

1 5000,0 

15000,0 

1509", U 

15090,5 




1 51 70,1) 

1 51 7", •) 

15170 , U 

1 51 7" ,S 

15770,0 

15270,0 

15270,0 

15770, U 

15250, U 




157)0,1) 

1 5710,1) 

1 5 1 1 0 , U 

1 57?o,y 

1 5 ? 2 0 , ij 

15720, S 

15400, S 

15410,0 

1547", (J 




15440,11 

1 545", IJ 

15450,0 

1 5450 ,0 

15400,1) 

1 5400,0 

1 540" , 0 

15520, U 

15530,0 




1 5 R 50 , 5 

1 409 ", |J 

1 5910,1) 

1 5910,1) 

15510,0 

15020,5 

15030, U 

1 5040, U 


ip 

I M T F ft F R. 


14570,1) 

1 597" ,') 








Iocof 

fMTFftFQ 


14040,0 

1 505" ,1) 

15700, y 







inctp 

J \|T CftFQ 


1 4940,0 









(no 

1 V T F ft C Q 


1 577" , 5 

1574",,u 

1 5340,0 







TFLM 

T M'-Ff.FR 


14570,1) 

15070,0 

1 5040,1) 

1504(1, U 

15060,0 

15130,0 

15930,0 



IPLM1 

tMTgr,Ep 


15050,5 

15090,IJ 

15170,5 

15770,0 






IPL*A? 

INTFftFR 


1 5070 , <; 

) 504" ,0 

1 5"R7 , S 

1 5000,0 

15170,5 

1 5270,0 




IM 

J V T FftF<> 


15760,5 

1 5370,0 

1 5 76? , 0 

1 5770 ,u 

1 5750, U 

15030,0 




IMARM, 

tN^FC-Ft? 


14O’5O,0 

1 5770,0 









15700,0 


151 7r,iJ 
15??" .S 
1545", U 
1 554", U 


J-3.168 



DIMPNSTON WHFOP/Hnw US c O 


T N I T T &L 

VA9IABl c Typp VAL'JF 


J 

1 N T 5 0 F Q 

1 po-r, s 

15010,(1 

KFY 

IN'FOFp 

15210,5 

1 52? A , I) 

KYt> 

IMrcr.PB 

15370,5 

1 533o,o 

IF 

TNtFOCp 

1 5040, 11 


N 

j \irco? 0 

1 4930,0 


NO 

TNTFr.FP 

) 4029,9 

1 5090,0 

sjop 

T MTCr.po 

1 K l 70 , 5 

1 51 70 ,u 

NHoo? 

TMTFr.cp 

1 53"'', $ 

15320,0 

NODI 

t N " F 0. F q 

15420,5 

1543o,o 

NOP 7 

J VTFOFO 

15150,5 

1 5210 ,IJ 

NO? 

IMTFr.FO 

15?oo, c 

1 5720,(1 

NFLP'l* 

INtff.er 

1 4930,1) 


NFO 

1NTF0FP 

14930, n 

15930,1) 

NFpT 

T NTFO-FO 

1 4930,0 

1 5 93P , 0 

NH 

T N "" F o, c o 

1 4930,0 

ISOflC ,1! 

NHN5 

1 \ircr.co 

1 4970,p 


NHP 

TMTFr.pp 

14950,0 


NN 

JWTFpFQ 

1.4930,0 


NM0O55 

1N t FO.FR 

14070,0 


NP9NTF 

IN^FpEP 

14940,0 


NP9N T | 

INTFOEO 

14940,0 

1 5040,0 

N P 9 N T 0 

INTFO-FP 

] 4970,0 


N5 

Intfopr 

14970,0 


N512F 

J NT FCFR 

14970,0 



NT 


Tytcficp 


1 4970, p 


For f<; 


15°n,l) 15930,$ 15940,1) 15940,11 

15277, u 1 52 4 o , o 15253, u 

1 5470 , (I 155fto, n 15750, U 

1 5170,1) 

151«' , ,IJ 1 FI or ,1.1 1 52 fl 0 * II 15290,11 15300, (J 15310, U 15420, U 15440,i) 


1 5330 , 1 ) 


15090,(1 1 5?f o f () 


19000, () 15130, IJ 15270, U 15310, U 


J-3.169 



FROTS 


IMIT IAL 

VAHABIF tffilJF OIMFNSIflN WHCRC/HOW IISFP 


0 

RPflL** 

74 

l 4990,0 

1 CS70, U 

1 SPflO.S 

1 574«,l| 

1S0O7.IJ 

15170,5 

15230,5 

15751 , u 

15270, U 

15310, U 

15480, U 

15520, U 

**T 

RCU*9 


ISP’o.S 

1 SC 70 ,IJ 

1SSP",(J 

15760,11 

15770,11 

1 5780,1) 





PINT 

RC A|_ *P 


1 S4R", S 

1 5520,5 

1157’,$ 

1 S 6 io, s 

15690. U 

1 5690, U 

15760, S 

15930, l) 

15840,1) 


9 

QFAL*R 

n 

i 4 oap, n 
1 56Ri,S 
7 SRI o, s 

1 S41 o » S 
i S 6 A<-,U 
1SR?o,S 

15441, 5 

ISAOi, <> 
1 spqp , s 

1 5640,11 
1 56 00,11 
15R4",S 

15650.5 

15700 ,S 

15950. 5 

15650, (J 
157po,tl 
1 5960 , S 

15660. 5 

15710. 5 

15910, U 

15660, U 
15710, U 

15670. 5 

15790. 5 

15670, U 
15830, S 

ON 

or*i_n 


1 401 1", 0 










Q*i\ 

op m *« 

1 

1401 r» f r» 










O'*?. 

ocfl( *R 

lopo 

1 * 010 , r> 










QP 

ocai_*r 

n?o 

14010,0 










OP1 

pe/il*a 

10 70 

149)0,0 










00 

RFAL*” 

A 

1 4040,0 

ISP'V'.S 

15010, s 

1S010.II 

1 5940,11 






OS 

RCAL*R 


1 401 o, n 










Ott c S 

i>f AL*° 


i 4040 , n 










R 

P F At. * t 

74 

1 4 flor , o 
1 t ;s«o,ij 

1 sopn,s 
I 5770 ,1) 

isoop, II 

151 70,5 

15240, S 

15240,1) 

15270,1) 

1 5310, 1) 

15490, U 

15 530,1) 

PINT 

P r AL * 9 


1 S400, <; 

1 SRI'', I) 

1 SSto , S 
1 591 n ,1) 

1 5 5°P , 5 
15R?o,l| 

15620,5 

15640, U 

1 5650, U 

15660, U 

15670, U 

15770, S 

15790 ,S 

s 

pc AL*n 

74 

1 4 ROO , r> 

ISP 8 n , S 

i sr oo , ii 

1 51 70,5 

15250, S 

15250,1) 

15270, U 

15310, l) 

15540,1) 

15780,1) 

SINT 

PFAL*« 


ISspo, s 

I 554", S 

1 5501, s 

1 5670,5 

15700, U 

15713,1) 

15780, S 

15950, U 

15860,1) 


T APFS 

0PAL* n 


14O7P.0 










T HF T 0 

R C A |. * R 

74 

1 4R0P ,n 
1 R45H,U 

IS1 70 ,S 
I 5460,11 

1 5?” o , 1) 

1 S4R0 , 1J 

1 5770,5 
1 54 80,1/ 

15270, U 
1540(7,1) 

1 5?R0 , 1) 
1 5490 , y 

15310,1) 

1 5320, 1) 

15340, S 

15340, U 

XI 

RF AL*« 


15450, S 

1 Ss?o,(| 

15550,11 

1554", U 







X? 

PFAL*P 


15440, S 

1 5520,1) 

15550,11 

1 5540,11 







VKP 

PC AL *R 


1 SIP'', S 

’ K 45 r » U 

15460, M 

1 55 ? o , n 

15500,11 

1 5540,1) 






J-3.170 



HntlAQN 


V AR T AflL F 

IMflAL 
TYPC V A L'J C 

niMFNSIHN 

WH F° F /HOW 

UFFD 








rnysr 

PFAL*3 


0330,0 









ofl tc 

0FA(_*« 


OR6",0 









0 T ? 

RFAl. *R 


0R5A f 0 

lonoo.u 








fort f 

0 F AL *R 

2*40 

Qn , '0,ri 

1 

VTOir'.u 

lonn,ij 






HOtJROW 

R<= A| *P 


°77r , 0 









1 

T M r F OF R 


OO? 1 ) , F 

9930, !J 

9 900 * S 

l A 'r>cp,ij 

10330, IJ 

10933,1) 

1012O, S 

10130, U 

1 0 190 , S 

Tor.nF 

TN rc OFR 


°R4'',r) 









Ioflf 

[M’cr.co 











TFO 

IN T FFFft 


r-i vss 

7 0 1 4 P 1 1 .1 








f M 

f «iircr;r o 


077A.II 

O06n,o 

m^.p 







KV 

J MTFf^CP 


°77 n 1 1) 

1P10R.U 








IK 

IMTFr.CR 

29 4 

9R?o, n 

jAir.ii 








MATHIJT 

IN T rr,cD 


0040,1) 









M 

| \jt e f,cp 


(nio , n 

OQRT f u 

i oop>>,y 

] orpo ,u 






Nrin^p 

t SITFr.FR 


°r?o,o 

i "1 r",n 








NFLF^S 

T M T F r F R 


ctpoo,n 









M C Q 

J V)T Cfjto 


0P3n,n 

99?o ,n 

9960, p 

oqon r U 

1 0190 , IJ 





M r 97 

TMFFrFR 


9RRO,n. 

lAAn.u 








MM 

t M T F r, F R 


osif.n 









NMNF 

|\|Trrco 


orro.o 









VM 

IMTFr.FR 


oq-ar t n 









NMOOFF 

i m t f rF p 


opor ,0 









MOQOC 

TM T Fr,FR 


i r'c o ** , f 

loioo.s 

1 "IPO.ij 

1 0 1 1 o , u 

10120,1) 





MOORFS 

IMTFr.FR 


qpro , n 

l''PRR,U 








MO I 

f M’-cr.FR 


oo30, f 
niA, ii 

OQ4F,M 
i r ^ 4 •> , i j 

904R,IJ 

1'i'>4' , t IJ 

0949 ,1) 
1 OORo.U 

994r,IJ 

looorsu 

1^00", s 

1 0->60,tl 

10010, IJ 
1 0060, U 

10013,1) 

1 0200 , S 

10010,1. 

10210,1 


1C20C ,'J 


1091P ,U 


J-3. 171 



J 







HOURON 


V«R ! ARI 

IVI T IAL 

f ryoc VAL'IF 

OIMFNSTON 

WMPRF/HOW uopn 



NPRNTF 

TWTFRFR 


pflAo.n 




NORMT| 

IM'crfp 


OA40,0 




unosro 

ixrcr.cp 


oRio,n 




MRT7F 

T VTCr.Fp 


QRon,n 




PC 

PF4L*n 


oflsn,n 




0 !. 04 r» 

R F 4 1 * ft 

?"4 

070 n,n 

° 06 ?,p 

1 0 " 3 0 , C 1 30 ,u 

1014 P,S 

OM 

RFAL*“ 

JOR 0 

PRO'', 0 

0040 , ij 

10OR0,U 10?10, S 


OM| 

PP4L*R 

in?n 

OflAA, 0 

0040,11 

10040,), 100^0,5 


QO? 

PFA| *R 

1 r ■>* 

'IR 1 ’", 0 

0040 , <> 

0Q4O.U PQ*0,P 

10^40, s 

OP 

OF4(.*R 

1P?P 

onnr , n 

10010 , U 

] 0040,11 


0P1 

PFA(_*R 

in?o 

QRPO.O 

’Ooio f u 

100*0, s 


0' 

PF*l.*R 


o«no ,n 




OSS 

PF At_*R 


iroi",s 

10030 , u 



RCTRN T 

RFAI.OR 


ofl;>o,n 




SLVFFO 

RFAI.4R 


0700,0 




S n L V c 0 

PF«L*« 


101RO fU 




tjmc 

R F A | * o 


o«*o,o 

OO RO , (J 



tmft 

R F A|_ * R 


QPAA.n 




TOT(Mp 

PFA(.*0 


ORA.O, 0 




T*' 

RF Al*R 


ORftO, 0 

OORO , IJ 

OORO ,u 


*1 

RF4!.*R 


ORftO.O 

ROR«,U 




rfal*p 


OORO, S 

1 0 0 1 0 , lj 



XM 

RF4L*R 

4RRO 

0700, r> 




XP 

rfal*R 

4RR0 

OR«>o.,n 

00*0,0 




io?n,u 


0 - 3.172 



hhuroi 


t N) T T T 4L 


VAP 1 &PLP 

TY°F V ft L J ft 

niMFNS104i 

WHFOF/HHW 

MSFO 








COMOT 

QCAt*P 


or?r,n 









nei.rp 

OF a l *3 


ortFo , o 

°l so ,n 

o ? o 0 , u 







nc[»eo 

OCAMPO 


o o*o, n 









nr? 

OF At ft P 


qp?f , pi 

0700 ,IJ 

0R5O,,j 

O37o,i| 

0770 ,u 

0400,11 

0650, IJ 



fopfe 

OF4l_*« 

?04O 

o aoo , pi 

0750,11 

0?4O,|) 

0740 ,(j 

0240 , u 

9333, U 

0350, (J 

9363, U 

9360,1) 

MHIJR01 

OF AL*P 


a<v,n , pi 









T 

TNFFPFR 


° 1 Ro , 5 
03PP.IJ 

o«5"o, ij 

01 0O,|j 

0731 ,IJ 
PS2" , 5 

0770, t) 
9371, Ij 
0S7o,U 

O7?0,IJ 

05RO, u 

0*37,7 

024P.IJ 
OR R 0 , $ 
9*47, |J 

9240, U 
0393, U 
9650, U 

9R00, S 

9470. 5 

9670.5 

97 1 0 , L) 
04 RO , (J 

9687,1) 

9330 , U 

9493, U 

Tnn c 

TAJTFftCR 


0Y*Rn,n 









10EI.R 

t'J T = r,FO 


opip.n 









T PIS'? 

T MTcr.FR 


qn",s 

9460 ,11 

OROo , $ 







T M 

lM T rr,ci> 


«>9*' , ',M 

01 7C ,P 

9?Ro , o 

0450 , P 






TPSPPT 

T V'Ff.FD 


arfto.n 

o?ir ,u 

0750, |j 







T'P 

TVjrcr.FR 


pnA.i.n 









KV 

TNTFr,Fo 


RO*P,tJ 

0430, P 

0740, P 







LK 

T M T P f? c 0 

7*4 

oni n,n 









MATMijr 

TMFoffO 


oi7o,(| 

07 RO ,1.1 








M 

!M Tc r,F0 


on?n , n 

0190,11 

071-«, i| 

94 RP ,11 

0*40,11 





MrtnsF 

IMTFr.FR 


ori o,r> 









M r L c M$ 

tN T Fr,FR 


Oo ? o, n 









MFQ 

T M r F r c O 


oo?n,n 

01 70, p 

01 0O,|| 

07 R 7 , P 

9R70, U 

9473,0 

0630, U 



NFQ T 

T N T Frco 


0000,0 

O? 40 , 1 J 

07*0, IJ 







AJM 

TMFFr,FR 


or?o,r> 









nmno 

TMFcr.cR 


or?",n 









MN 

TVi’FOFP 


0070,0 

0700, U 

0*550,(1 

9*R0 , |) 






NNOOFS 

INFFCPO 


0070,0 










933r,U 

95*0, (j 


J-3.173 



MPU80 1 


VAPIARIC 

I m T r i a l 
typf vai.JF 

OTMFNSTON 

WHFRF/HOW 

U'FO 









MN»t 

IM'FOFR 


0300 , S 
0 690 , (J 

0400,(1 

97C0,U 

04*0,0 

0703,11 

otpo ,u 
0700 , ij 

0530, S 
0710,(1 

0543, U 

9550, U 

9550,11 

9560, U 

0680,5 

nno? c <; 

fM'Fr.FR 


« 01 *,0 










VP T 

iMPpr.FP 


91 OP, S 
0380 , IJ 
" 656 , IJ 

9?oo,u 

0850, IJ 

8?r.«,n 
0350, u 

0? DO , U 
O’fcO.U 

9223 * IJ 
0360, U 

024? , L) 
04RD , S 

0240, IJ 
9493, U 

0240, U 
0640, S 

9253, U 
9653, U 

931 0 , S 
9650, U 

mppmiT 

TMTpr.pp 


<?fiFPi,n 










mopvt 

T MTFr.pp 


0*4*, n 










MOpkjr p 

t^rcppp 


00^0, 0 










isjooMrL 

TMTcr.cp 


pni.n 










MOpMTf) 

T M'PflFO 


on??, n 










mofstp 

T V rc OPP 
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I M r F ft C O 


161 ?o, o 



NS 

IM T FftFR 


16170,0 



NSI2F 

IMTFft.FR 


161 70,0 



NT 

I NTCftCQ 


1 61 70 , 0 



D 

P C A l. * R 

7A 

1 61 AO, O 

1670ft, ft 

16760, ft 

PI 

R F AL * 0 


16770, S 

1 6660 ,1) 

16 660,1) 

PINT 

OF AL*P 


1 6 A 50 , F 

1 6670, ft 
l 6 7 7 o , 1 1 

1 6630,(1 

R 

RFAi *n 

7A 

1 6 1 AO , 0 

1 6700, ft 

16777,5 

PINT 

of At. *° 


1 6AOO, ^ 
16710, ft 

1 66 Ao , ft 
1 67AO ,1) 

1 6547,0 

S 

RFAL*8 

74 

161 AO, n 



TflPgS 

of AL* 0 


16170,0 



▼M 

OF AL*0 

50, ft,? 

1 6160, n 

16770, S 



16720,11 16370, U 1 ft A 0 -» , tl 16410, u 165O0,u 16520, U 16580, U 
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16390 , U 
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16610,0 

1 6670,0 



1 6670,(J 

16640,0 






1 6660, ft 

16560,0 

16617,5 

16610, U 

16630,5 

16630, U 

16670, S 

16770,0 

16790, U 

1 65A7 , 0 

16620, U 

166P7,U 



1 6667 , ft 

16567,0 

16627,5 

16627, U 

16640, S 

16640, IJ 

16687,5 
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IMT T TAL 


VAOT AB| F 

TYPO VAl'JF 

OIMFN^rnN) 

WHFRF/H0W 

OSFfl 

’•http 

PFAl_*fl 


1610'', n 


thfb 

ofal* b 


16’6o,r> 


'■ M F T 3 

9= AL*5 

79 

161 9** , 0 
1 6 c 9 o ,0 

163'''', 5 
1 6 5 A o , o 

<1 

dfal*9 


16690, <; 

1 6610,0 

X2 

pc al*« 


1 660'', 5 

1 661 o , S 

YK° 

9FAL*P 


16970, S 

16690,1.1 


1 , If 1 6^ c o , s 16393, U 16390, U 16930, S 16930, U 

165 £ >' > , () I6609 t |j 

1 66 ?o,o 

1 662"' , 5 

1 66 r ' 9,0 16610,0 16620, l> 


16530, U 


16530,11 


J-3.221 



TPJ AHR 


f M I T T 4 L 


VARTARLF 

T YPF V.UtIF 

nfMCNSION 

WHFP F/HHW 

I14F0 









rr.c 

RFAL*R 

125 

17600, r> 

1 7950, S 









r ccr 

0F4L*° 

6?4 

1 76i ", o 

l 8440, q 









comst 

pCAt_*P 


1 76?o , n 










rs 

RF4LPR 


1 760 ”, 0 
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d p a |. * n 

1 ?5 

1 7400,0 

1 7970, $ 
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1 p?"", 4 
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1 0400 , c 
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FFPIHQ 

PF M_*P 
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17070,4 

17940,6 
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1 8700, S 
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18440, U 
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i inr, 4 
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17967, 1) 
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1 78*0, S 
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18467, U 
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inr.nF 
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niMFNSION 

WHFOC/Hnw 

IJSFO 









T«t. 

tMTPCPP 


ir-asp, s 

Ifllfcp.l) 

1 8770 ,1) 

1 84 0" ,11 

18410,0 






T MM 

IVTcr.fo 


1 78’", S 

1 793" ,0 

1 7«A“ ,i| 








IPJ 

| M r p p, c f> 


1 777", S 
1 P?7P,IJ 

17700,11 

1787",!) 

178 80,1) 

1R3 70.S 

1817", 0 

18130,o 

18240,0 

18250, U 

18760,1) 

TPL 

TNT Ff.ro 


1 0740 , S 

1 83RP,U 

18 300,0 

1 84?", 1) 

1847",!) 






TPM 

t - r f z d 


i’fll O , « 

17Pir,i» 

1 707" , l) 








f T M 

T M ♦ c p, r •> 


1 775" , S 

1 78"", S 

1 78"" , 1) 

1 70S", l| 

17860, U 

17970,0 





IJ 

1 VT Ff fo 


1.776", S 
10 " 7 0 , IJ 

17770, |J 
1 808", U 

1 778" ,1) 
1877", l) 

1 7010,!) 

1 871«1 f || 

17820,1) 

1702", J 

17933,0 

17940,0 

17940,0 

18060, S 

KK 

f UTFfCq 


ipi"r,s 

1 PI l",lf 

1 «1 2" ,11 

1 8770 ,|J 

1 877", IJ 






KM 1 

T vrcfco 


10370 , c 

1 P 7 7" , IJ 

1 87"" ,|) 

1 84 1 0 ,1) 

18410, U 

18470,0 

18430,0 




K M L 

T Mr pppp 


1B17P.S 

1813",0 

181?", |J 

1876", U 

18770,0 

1 8273,0 

18300,0 

18310,0 

18310,0 


KPJ 

TM'FfFO 


im?n,s 

1 8860,1) 

1 8780, U 

1 840", 1) 

1 84"0 ,0 

18420, U 

1842", 0 




KPL 

TNjr CfpB 


1711",$ 

1817", U 

1817", U 

18240,0 

18280,0 

18250,0 

18280,0 

18290,0 

18290, U 


11 

TMT-^fFO 


1R07", S 

1811", IJ 

1812'',)) 

1 834", U 

18350,1) 






NFLFMC 

7 W^CfFp 


1 7 67 ", 0 










Mcrj 

T NfTFfFO 


1 7670,0 










MFQT 

[MTcrpo 


1 7 6 P ", 0 










MM 

f Njrrpp D 


1 76?P ,0 

17718,1) 

1 777", U 

1 778" ,1) 

18310,0 

1 807", 0 

18050,0 

18003,0 



MMNS 

T MT FfFO 


1 7670,(5 










MHP 

7MTcr,po 


1764<“,n 










MM 

TNJ^FCFP 


i.76?n,r) 










NMniFS 

T N T C f c o 


1 767", 0 










NPPNTc 

|MTCr.CO 


i. 767" ,n 










MPPMT(_ 

r M r Ff.C0 


17676,0 










NPPNTQ 

f yr Ff,cp 


1 767", n 










mf r 7 f 

7 MT Ff cd 


1767", n 











J-3.223 



T0J4HR 


IMI’IM 


V^RTABI.P 

TYPF V«LIF 

OIMFNSinN 

WHFOF/HHW 

1 USFO 



o 1 0? 

RF4l*ft 


17600,5 
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OF AL*fl 
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1 7Mr,n 
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s*c 

op 4L*P 

125 
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COMMON MAP 


COMMON 

BLOCKS ROUTINES 


MAIN INPUT SETUP NLTERM QPRIME HOUBQI HOUBQN NRESTR MATMUT SOLVEQ STRESS FRCES THCOE TFORCE TRI40R 


CHALS 

CONST 

CS 

CS4 

CYCLE 

EES 

FRCE 

GCD 

GEOM 

HARM 

NLTRMS 

PRINT 

PS 

QS 

QUES 

RESTRT 

RSTRNT 

RZ 

SLVEEQ 

TAPES 

THCON 

THER 

THETAS 

TMFT 




C-i 

i 

CO 

ro 

IV) 

cn 
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EQUIVALENCES 

FRCES 

EQUIVALENT VARIABLES 
NONE 

HOUBQN 

EQUIVALENT VARIABLES 
NONE 

HOUBQ1 

EQUIVALENT VARIABLES 
NONE 


INPUT 

EQUIVALENT VARIABLES 

DUM(1),XN(1) 

XN(1 ) ,COMENT(l ) 


MAIN 

EQUIVALENT VARIABLES 
QN ( 1 ),CARD(1 ) 

MATMUT 

EQUIVALENT VARIABLES 
NONE 

NLTERM 

EQUIVALENT VARIABLES 
NONE 

? jece« ** 
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EQUIVALENCES (continued) 


NRESTR 

EQUIVALENT VARIABLES 
NONE 

QPRIME 

EQUIVALENT VARIABLES 
NONE 


SETUP 

EQUIVALENT VARIABLES 
NONE 

SOLVEQ 

EQUIVALENT VARIABLES 
NONE 

STRESS 

EQUIVALENT VARIABLES 
NONE 

TFORCE 

EQUIVALENT VARIABLES 
NONE 


THCOE 

EQUIVALENT VARIABLES 


NONE 
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EQUIVALENCES (continued) 


TRI40R 

EQUIVALENT VARIABLES 
NONE 
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FRCES 

FORMAT STATEMENT MAP 

STATEMENT 

LOCATION NUMBER SPECIFICATION 

15980 160 1H1,35X,49HF0URIER COEFFICIENTS OF 

APPLIED PRESSURE LOADINGS,//, 20X, 

1 OHMERI DIONAL , 20X , 6HN0RMAL , 20X , 

1 OHTANGENT IAL , 1 OX , 1 2HHARM0N I C NO. ,// 
WRITE (6,160) 

16010 170 215/ ( 3F1 0.0) 

READ(ND,170)IELM1 ,IELM2,(P(I) , R ( I ) , 

S(I ) , 1=1 ,NH) 

16020 180 /60X,11HELEMENT NO. ,I3,1H-,I3, 

//(2X,3D28.7,15X,I2) 

WRITE (6 , 1 80) IELM1 , I ELM2 ,(P(I),R(I), 

S(I) , I , 1=1 ,NH) 

190 1H1,51X,30HAPPLIED LOADS ON THE 

STRUCTURE///56X,19HPRESSURE COMPONENTS 
//20X,1 OHMERI DIONAL, 20X,6HN0RMAL, 

20X , 1 OHTANGENTIAL , 1 1 X , 1 9HFR0M THETA 
TO THETA, 9H( DEGREES) 

WRITE(6,190) 

16060 200 31 5/ (4F1 0.0) 

READ(ND,200) IELM1 , IELM2,NDP, (THETB(I) , 
P(I),R(I),S(I),I=1,NDP) 

16070 210 /60X,11HELEMENT NO. ,I3,1H-,I2//(2X, 

3F28.3,12X,2F10.3) 

WRITE (6, 21 0)1 ELM! , I ELM2 , ( P ( I ) ,R(I) , 

S(I ) ,THETB( I),THETB(I+1 ) ,1=1 ,NDP) 

16070 220 2X,3F28.3,1 2X,2F10.3 

WRITE (6,220) (P(I ) ,R(I) ,S(I) ,THETB ( I -1 ) , 
THETB(I ) , I=NDPP2,ND2) 


Preceding page blank j 



FORMAT STATEMENT MAP 


LOCATION 

STATEMENT 

NUMBER 

SPECIFICATION 

05050 

730 

1 HI ,38X,65HDYNAS0R-II - DYNAMIC 
NONLINEAR ANALYSIS OF SHELLS OF 
REVOLUTION// 

WRITE(6,730) 

05070 

740 

215 

READ(ND,740)NCARDS,NT 

05080 

750 

20A4 

READ(ND,750) (COMENT(J) ,J=1 ,20) 

05090 

760 

2F10. 0,415,/, 1015 

READ ( ND , 760 ) TOTI ME , DELTE , I RSTRT , I NC RST , 
NCLOSE,ITELF,NPRNTQ,IPRINT,NCLCST, 
NSTRSS,NPRNT,NPRNIT,NPRNTL,NPRNTF, 
NPRNTH,NPRNMS 

05100 

770 

15,/, (8F10.0) 

READ(ND,770)NTHETA, (THETA ( I ) , 1=1 ,NTHETA) 

05110 

780 

1615 

READ( ND , 780 )NODRES 
READ (ND, 780 )NP,NDIRCT 
READ( ND , 780 ) IQN , IQN1 

05120 

790 

///,2X,46H**SHELL IDENTIFICATION 
COMMENTS FROM SAMMSOR** 
WRITE(6,790) 

05130 

800 

/5X,20A4 

WR ITE ( 6 , 800 ) ( COMENT ( J ) , J= 1 , 20 ) 

05140 

810 

1 HI ,50X,33HC0NTR0L CONSTANTS AND 
C0MMENTS///35X, 8HT0TIME = , FI 2 . 9 , 22X , 
7HDELTE =,F13.9/35X,8HIRSTRT =,112, 
22X,8HINCRST = ,I12/35X,7HNPRNT =, 

11 3,22X,8HNPRNIT =,I12/35X,8HNPRNTQ =, 
I12,22X,8HNPRNIT =,I12/35X,8HNCLCST =, 
I12,22X,8HNSTRSS =,I12/35X,8HNPRNTL =, 
12 ,22X,8HNPRNTF = ,I12/35X,8NHPRNTH =, 
I12,22X,4HNT =,I16/35X,4HNS =,I16,22X, 
4HND =,I16,/35X,8HNCL0SE =,I12,22X, 
7HITELF = ,11 3/35X,8HNELEMS = ,112 ,22X, 
8HNPRNMS =,I12/35X,4HNH =,I16,/35X, 
7HIHARM =,5111// 



J-3.233 


INPUT 


FORMAT STATEMENT MAP 


LOCATION 

STATEMENT 

NUMBER 

SPECIFICATION 



WRITE(6,810)T0TIME,DELTE,IRSTRT, 
INCRST,NPRNT,NPRNIT,NPRNTQ,IPRIT, 
NCLCST,NSTRSS,NPRNTL,NPRNTF,NPRNTF, 
NPRNTH,NT,NS,ND,NCLOSE,ITELF,NELEMS, 
NPRNMS,NH,(IHARM(I),I=1 ,NH) 

05210 

820 

35X.8HNTHETA =,I12,/35X,7HTHETA = , 
5F10.2, (/,42X,5F10.2) 
WRITE(6,820)NTHETA, (THETA(I) , 1=1 ,NTHETA) 

05220 

830 

/////50X.29HNUMBER OF NODAL RESTRAINTS 
ISI5//52X,9HDIRECTI0N,12X,7HAPPLIES, 
// , 57X, 1 HI , 1 OX , 1 5HAXIAL RESTRAINT,/ , 
57X , 1 H2 , 1 OX , 20HTANGENTIAL RESTRAINT , 
/ , 57X , 1 H3 , 1 OX , 1 6HRADIAL RESTRAINT,/ , 
57X , 1 H4 , 1 OX , 1 7HANGULAR RESTRAINT , // , 
58X.15HN0DE DIRECTION/ 

WRITE ( 6 , 830 ) NODRES 

05260 

840 

58X,I3,7X,I1 

WRITE(6,840)NP,NDIRCT 

05270 

850 

215 ,4F1 0 . 0 

READ(ND,850)IN1 ,IN2,Q1 ,Q2,Q3,Q4 
READ(ND,850)IN1 ,IN2,Q1 ,Q2,Q3,Q4 

05280 

860 

1 HI ,7X,7HINITIAL,29X,10HVEL0CITIES,22X, 
3HAND,19X,1 3HDISPLACEMENTS//4X, 

124HN0DE HARMONIC AXIAL TANGENTIAL RADIAL 
ANGULAR AXIAL TANGENTIAL RADIAL ANGULAR 
// 

WRITE(6,860) 

05320 

870 

5X,I2,6X,I2,3X,8D14.4 
WRITE(6,870) II ,IHARM( I ) ,QN(IQ+IX+1 ) , 

QN ( IQ+IX+2) ,QN(IQ+IX+3) ,QN(Q+IX+4), 

QN1 (IQ+IX+1 ) ,QN1 (IQ+IX+2) ,QN1 (IQ+IX+3) , 
QN1 ( IQ+IX+4) 

05330 

880 

2I5,2F10.0 


READ(ND,880)IELM1,IELM2,ALSI1 ,ALTI1 
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INPUT 


FORMAT STATEMENT MAP 


LOCATION 

STATEMENT 

NUMBER 

SPECIFICATION 

05340 

890 

1H1 ,45X,41HELEMENT ELASTIC AND 
GEOMETRIC PROPERTIES, ///67HELEMENT 
ALPHA— S ALPHA— T El E2 FNU1 FNU2 
G,11X,1HR,11X,1HT,9X,4HARCL,9X,2HPH, 
10X,3HPHP// 

WRITE(6,890) 

05370 

900 

3X,I2,2X,4D10.2,2F6. 3,6D12.4 
WRITE(6,900) (I,ALS(I) ,ALT(I ) ,E1 ( I ) ,E2(I ) , 
FNU1 (I ) ,FNU2(I) ,B(I) ,R(I) ,T(I) ,ARCL( I) , 
PH ( I ) , PHP ( I ) , 1= 1 ,NELEMS) 

05380 

910 

1H1 ,38X,15HHARM0NIC NUMBER,I5,37H HAS 
THE FOLLOWING STIFFNESS MATRIX// 
WRITE(6,910)IHARM(JH) 

05400 

920 

2X,D16.8,/,2X,2D16.8,/,2X,3D16.8,/,2X, 
4D16.8,/,2X,5D16.8,/,2X,6D16.8,/, 
2X,7D16.8,/,2X,8D16.8,/,(2X,5D16.8,/, 
2X,6D16.8,/,2X,7D16.8,/,2X,8D16.8,/) 
WRITE(6,920) (XN(I+NN) ,1=1 ,NSIZE) 

WRITE (6 ,920) (XP( I+NN ) , 1=1 ,NSIZE) 


05430 

930 

1 HI ,38X,15HHARM0NIC NUMBER, 15, 32H HAS 
THE FOLLOWING MASS MATRIX// 

WRITE (6,930) I HARM( JH ) 

05450 

940 

1 HI / /// //5X ,45HTH IS SOLUTION STARTS AFTER 
TIME INCREMENT N0.,I5,19H WHERE THE 
TIME WAS,F12.4,13H MICROSECONDS,/, 5X, . 

27H AND THE TIME INCREMENT WAS , D1 2. 5////// 
WRITE(6, 940) ITP ,TPRNT,DELTEP 

05480 

950 

F10.0,4I5 ,A8 

READ(ND,950)T1 ,NCF,IDELF,IDCOE,ITCOE,CONSTF 

05490 

960 

40H1 FOLLOWING IS LOAD DESCRIPTION AT TIME =, 
F12.4.13H MICR0SEC0NDS,5X,A8 
WRITE(6 ,960)TPRNT,C0NSTF 

05510 

970 

21 5 ,4F1 0.0 

READ(ND,970)NCF1 

READ(ND,970)IN1 ,IN2,F1 ,F2,F3,F4 



FORMAT STATEMENT MAP 


LOCATION 

STATEMENT 

NUMBER 

SPECIFICATION 

05520 

980 

///20X, 30HC0NCENTRATED FORCES HARMONIC , 
I5//6X.8HN0DE NO. ,6X,5HAXIAL,10X, 

1 OHTANGENTIAL , 1 OX , 6HRADIAL , 1 3X , 
7HANGULAR/ 

WRITE(6,980)IHARM( IH) 

05540 

990 

I10.4D20.8 

WRITE(6,990)IN,F1 ,F2,F3,F4 

05550 

1000 

215,/ , (2F10,0) 

READ(ND , 1 000 ) I ELM1 ,IELM2, (TH1 ( IH) ,DTH1 (IH) , 
IH=1 ,NH) 

05560 

1010 

1 HI , 25X , 39HTEMPERATURE COEFFICIENTS, 
HARMONIC NO. I3//10X,! 1HELEMENT NO., 
17XJ2HTEMP. COEFF. ,12X,18HTEMP. GRAD. 
COEFF./// 

WRITE (6,1 01 0)IHARM( IH) 

05580 

1020 

I20.2D30.5 

WRITE(6,1020)IELM,TH(IELMIN,IBP1), 
DTH(IELM,IH,IBP1 ) 

05590 

1030 

1 HI ,25X,32HGENERALIZED FORCES, HARMONIC 
NO. ,I3,//6X,8HN0DE NO. ,6X,5HAXIAL, 

1 3X, 1 OHTANGENTIAL , 1 1 X ,6HRADIAL ,1 3X, 
7HANGULAR/// 

WRITE(6,1030)KYP 

05610 

1040 

19 , 4D1 9.8 

WRITE(6,1040)I , FORCE (K+l ) , FORCE ( K+2 ) , 
FORCE (K+3), FORCE (K+4) 

05620 

1050 

1H1//////5X,42HRESTART INFORMATION FOR 
TIME INCREMENT NO. ,I5,/,10X,22H 
CORRESPONDING TO TIME,F12.4,13H 
MICROSECONDS ,/,2X, 51 H HAS BEEN PLACED 
ON TAPE FOR USE IN SUBSEQUENT RUNS// 
WRITE (6,1 050) ITAM,TPRNT 
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MAIN 


FORMAT STATEMENT MAP 


STATEMENT 


LOCATION 

NUMBER 

SPECIFICATION 

00790 

no 

315 

00200 


READ (5,110) NCASES,ND,NS 

00800 

120 

1 HI ,///,3QX,31 HTHE NUMBER OF CASES TO 
BE RUN=I5 

00210 


WRITE (6,120) N CASES 

00810 

130 

20A4 

00300 


READ (5,130) CARD 

00820 

140 

//8H1 NCASE=,I1//,28X,22HPRINT0UT OF 
INPUT DATA,/ 

00350 


WRITE (6,140) NCASE 

00830 

150 

1 3X , 2H1 0 ,8X , 2H20 , 8X2H30 , 8X2H40 , 8X , 2H50 , 
8X,2H60,8X,2H70,8X,2H80/5X,80H1 234567 
8901 2345678901 2345678901 2345678901 234 
56789012345678901 2345678901 234567890,/ 

00360 


WRITE (6,150) 

00860 

160 

5X,20A4 

00390 


WRITE (6,160) CARD 

00870 

170 

72H THE NUMBER OF INPUT CASES DOES NOT 
AGREE WITH THE VALUE OF NCASES INPUT 

00430 


WRITE (6,170) 

00890 

180 

1 HI //I OX , 1 8HALL DATA PROCESSED//! OX, 


11H STOP 

WRITE (6,180) 


00760 



J-3.237 


SETUP 


FORMAT STATEMENT MAP 


LOCATION 

STATEMENT 

NUMBER 

SPECIFICATION 

06430 

110 

1 HI ,30X,6HITAM =,I5,5X,6HTIME =,F12.4, 
13H MICROSECONDS// 
WRITE(6,110)ITAM,TPRNT 
WRITE(6,110)ITAM,TPRNT 

06440 

120 

36X.22HDISPLACEMENTS OF N0DES/38X, 
9HHARM0NIC , I5//6X.8HN0DE N0..6X, 
5HAXIAL , 1 3X , 1 OHTANGENTIAL , 1 1 X , 
6HRADIAL , 1 3X , 7HANGULAR// 

WRITE (6,120) KY 

06460 

130 

I10.4D20.8 

WRITE (6,1 30 ) I , (QN ( K+J ) , J=1 ,4) 
WRITE(6,1 30)1 ,(QL0AD(K+J),J=1 ,4) 

06470 

140 

25X, 34HDISPLACEMENTS OF NODES AT THETA =, 
F8.3.9H DEGREES/ 38X.13HALL HARMON I CS/2X, 
8HN0DE NO. ,9X,5HAXIAL,12X,10HTANGENTIAL, 
1 2X , 6HRADIAL , 1 3X , 7HANGULAR// 
WRITE(6,140)THETA1 

06500 

150 

1H1 ,5X,4HITAM,I5,5X,4HTIME,E12.5//6X, 
55HEXECUTI0N TERMINATED - DISPLACEMENTS 
GREATER THAN l.E+4 
WRITE (6,1 50) ITAM, TIME 



0-3.238 


STRESS 

FORMAT STATEMENT MAP 

STATEMENT 

LOCATION NUMBER SPECIFICATION 

14740 50 1H1,3X,6HITAM = ,I5,3X,6HTIME =,F12.4, 

13H MICROSECONDS,//, 47X,33HSTRESSES 
AND STRESS RESULT ANTS, /, 25X, 1 7HF0RCE 
RESULTANTS , 31 X , 1 8HM0MENT RESULTANTS , 
18X.17HSHEAR RESULTANTS, /,19X, 

1 09HN(S) 

N(T) N (ST ) M(S) M(T) 

M(ST) Q(S) Q(T) ,//, 12H ELEM THETA, 

/ , 1 04H 

NO (DEG) ***** OUTER SURFACE STRESSES ****** 
INNER SURFACE STRESSES *****, /,15X,88H* SIGMA(S) S 
GMA(T) SIGMA(ST) SIGMA(S) SIGMA(T) SIGMA(ST 
) */) 

WRITE(6,50)ITAM1,TPRINT 

14830 60 14, F8. 2,6(1 PD1 5.4) ,30H XXXX XXXX ,/,12fi 

STRESSES **,6(1 PD15.4) 

WRITE(6, 60)11 ,THETA1 ,STRNS,STRNT,STRNST, 
STRMT ,STRMST , BSU , BTU , BSTU , BSL , BTL , BSTL 

14850 70 I4,F8.2,8(1PD15.4),/,12H STRESSES **, 

6(1PD1 5.4) 

WRITE(6, 70)11 ,THETA1 ,STRNS,STRNT,STRNST, 
STRMS , STRMT , STRMST , SHRS , SHRT , BSU , BTU , 
BSTU, BSL, BTL, BSTL 



J-3.239 


THCOE 


FORMAT STATEMENT MAP 


LOCATION 

STATEMENT 

NUMBER 

SPECIFICATION 

16780 

no 

1H1 ,41 X,47HTEMPERATURES AND THERMAL 
GRADIENTS ON STRUCTURE///27X, 

1 1 HTEMPERATURE , 1 OX , 1 6HTHERMAL 
GRADIENTS OX, 29HFR0M THETA TO 
THETA (DEGREES)// 

16810 

120 

315/ (3F1 0. 0) 

READ(ND,120)IELM1,IELM2,NDP,(THETB(I), 
P(I),R(I) , 1=1 ,NDP) 

16820 

130 

/ , 60X , 1 1 HELEMENT NO . , I 3 , 1 H- , 12 , // , 
(28X,F9.3,15X,F10.3,16X,1F7.2,2X, 
F7.2) 

WRITE (6,1 30) IELM1 , I ELM2 ,(P(I),R(I) , 
THETB(I) ,THETB(I+1 ) ,1=1 ,NDP) 



J - 3 = 247 


LABEL CROSS REFERENCE MAP 


There is a label or statement number cross reference map listed 
for each routine. This listing gives an ascending statement number 
listing with corresponding references to that number. The listing 
gives the statement number being referenced, sequence number of 
referencing statements, and a corresponding letter value for each 
statement reference. The letter values for each reference are one 
of the following: 

L - this letter indicates that the 
referencing statement is a DO 
LOOP and the statement number 
given is the lower bound for 
the loop. 

B - this indicates that the referencing 
statement is a branch to the given 
statement number. 

R - an R indicates that the statement 
number listed is the label for a 
READ statement. 

W - this indicates that the statement 
number listed is the label for a 


Preceding page blank ! 


WRITE statement. 



0-3.242 


FRCES 


LABEL CROSS REFEZW MAP 


STATEMENT 

REFERENCES 

,\uMBER 



10 

15050.B 


20 

1 51 90 » L 


30 

15330 3 L 


40 

15040 3 B 

1 51 10, B 

50 

1 5400, L 


50 

15470 , B 


70 

15440 , B 


80 

15560, B 


90 

15510,B 

15550, B 

100 

15430,1 


11C 

'5390,3 


120 

15720.B 


130 

1 b880 , L 

15900, L 

140 

15920, L 


150 

15360,1 


160 

15050, L 


170 

1 5080 , R 


180 

15090,W 


ISO 

'51 30, W 


200 

15* 70, R 


210 

152. 


220 

1 53 V, W 




J-3.243 


HOUBQN 

LABEL CROSS REFERENCE MAP 


STATEMENT REFERENCES 

NUMBER 


10 

20 

30 

40 

50 


9920 9 L 
99S0,L 
1 01 20 9 L 
1GH0 S B 
i0190 9 L 



U-3.244 


H0UBQ1 

LABEL CROSS REFERENCE MAP 


STATEMENT 

REFERENCES 

NUMBER 

9210 s B 


20 

91 80 s L 

9230, B 

30 

9320,B 


40 

9300, L 

9340, B 

50 

9380, L 


SO 

960G,B 


70 

9470, L 


80 

952C L 


90 

D 


<0C 

9630, L 


110 

9670, L 




J-3.245 


INPUT 


LABEL CROSS REFERENCE MAP 


STATEMENT REFERENCES 

NUMBER 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

4C0 


1 1 80,B 
1 250 a L 
1 240 a 3 
1 76G S 8 

1 480 s L 1 50G,B 
1 460 5 B 
1 580 s L 
1630, B 

1620 S L 1650 S B 

1 720 S L 
1540.B 
1930,L 
2020,L 
2 1 40 s L 
2'i 30 9 B 
2370 9 B 
231 O a L 
2270 9 L 
2260 , B 
2510a B 
2450 ,L 
2410 9 L 
2400 ,B 

2550,L 2570 s L 
2060, B 
2640, L 
271 0 a B 

270C 9 L 2730 9 3 

2780,L 

2910, B 

2880 9 L 

2820 s B 

2930,L 

2920 s B 

3050 9 L 

3060.3 

3G40 9 L 3100,B 

3350,B 
3370, L 

3220.3 


3150,B 



J-3.2 *6 


INPUT 


.ABtL OAl 


•c 


ST.-.TEMENT 

KE.-ERENCE 

NUMBER 



43 c 

3570 3 L 


42C 

351 0 a L 

3620, L 

*30 

' 380,8 


440 

3710, B 


450 

3730, _ 


460 

3750, L 

3760, L 

470 

3720,3 


480 

3830, L 


430 

387C,L 

3880,i- 

r 3 

4830, B 


5.0 

401 0,B 


32 0 

130,8 

4250, B 

550 

.3 70, L 


540 

4080, L 

4120, B 

550 

4070, B 


560 

4300, l 


570 

*280,8 


580 

44/ u , d 


530 

4430, L 

4440,1 

600 

4400,3 


6'G 

4500. 3 


525 

4480,.. 


r ; 

*550, 

4570,L 

6- i 

hi-Z ■: 


5c,3 

■‘O _ Zr 


■560 

** 

4o5C,L 

530 

0; 


680 

4730. _ 


/ - O 

*'• / v. . .. — 

-••720,5 


s. 

/; ' 

_ v, w , A 


?:’C 

" •- 7 3 , A 



J , .4 



. 3- , 


v 


2330 • 

. V/ . 

-Ow 

i 5 ; u s A 


225C,R 



J-3.247 


INPUT 


LABEL CROSS REFERENCE MAP 


STATEMENT 

NUMBER 

REfEREN 

810 

1 780 ,W 

820 

1810, W 

830 

21 20 9 W 

840 

21 70, W 

850 

2 300 5 R 

860 

2540, W 

870 

2590, W 

880 

2870, R 

890 

3010, W 

900 

3020, W 

910 

3160, W 

920 

3170,W 

930 

3180,W 

940 

351G,W 

950 

3980 ,R 

960 

4060, W 

970 

4110, R 

980 

4140, W 

990 

4230, W 

1000 

4420, R 

1010 

4560, W 

1020 

4580, L 

1030 

4670, W 

1040 

4700, W 

1050 

5020, W 


E 


2440, R 


3190, W 


4160, R 



J -3. 248 


MAIN 

LABEL CROSS , FFERENCE MAP 


ST- V ’- 

NuMooR 

REFERENCES 

10 

410,3 

20 

400, B 

30 

340, B 

40 

31 0 a B 

50 

750, B 

60 

51 G,i_ 

70 

~C0,8 

80 

640, B 650 

S? 

620,L 

‘.GO 

700, B 

t J 

200, R 

'20 

210,/. 

‘.30 

3GC.R 330 

140 

350 , /i 

■ cn 

^ V 

35C,v 

’.S3 

390 ; A 


-30, a 

180 

"SC •. 



J-3.249 


MATMU7 

LABEL CROSS REFERENCE MAP 

STATEMENT REFERENCES 

NUMBER 


TO 

10S40 s L 


20 

11010 5 L 

iioio.l 

30 

in60 s L 


40 

mio,L 

11140 9 L 



J-3.250 


NLTERM 


LABEL CROSS REFERENCE MAP 


STATEMENT REFERENCE 

NUMBER ; ; 


10 

20 

30 

40 


6730, L 
6910, B 

6950, L 6970, L 
6760, L 



NRESTR 


LABEL CROSS REFERENCE MAP 


STATEMENT 

NUMBER 

REFERENCES 

10 

1 0430 , L 

20 

10420, L 

30 

10410, B 

40 

10560, L 

50 

10610, L 

60 

10690, L 

70 

10520, B 10660, B 

80 

10380.L 

90 

10370, B 

100 

10800, L 



J-3.252 


QPRIME 


LABEL CROSS REFERENCE MAP 


STATEMENT 

REFERENCE 


NUMBER 




10 

7590, L 



20 

7980, L 



30 

8010, L 

8030, L 

8070, B 

40 

7910, L 



50 

8370, L 

8390, L 

8430, L 

60 

8330, L 



70 

8720, L 

8740, L 

8780, B 

80 

8680, L 



90 

8650, B 




8470, B 



J-3.253 


SETUP 


LABEL CROSS REFERENCE MAP 


STATEMENT REFERENCE 

NUMBER 


TO 

5900,3 

20 

5960, L 

30 

6060, L 

40 

6170, B 

50 

6080, L 

60 

6250, L 

70 

6050, L 

80 

6000,B 

90 

5830, L 

100 

6380, B 

no 

5940, W 

120 

5950, W 

130 

5980, W 

140 

6240, W 

150 

6350, W 


6130, L 

6160, L 

6190, B 

6010, B 
5910, B 

5920, B 

6330, B 

6220, W 



6270, W 





J-3.254 


SOLVEQ 

LABEL CROSS REFERENCE MAP 


STATEMENT 

REFERENCES 

NUMBER 


10 

11390, L 

20 

11420, L 

30 

11640, B 

40 

11640, B 

50 

11710, B 

60 

12590, B 

70 

12590, B 

80 

12670, B 

90 


100 

11440, B 

110 

1 3090, L 

120 

1 3040 , B 

130 

13310, B 

140 

13310, B 

150 

1 3280, L 13400, B 

160 

13500, L 

170 

1 3530 , L 



STRESS 


LABEL CROSS REFERENCE MAP 


STATEMENT 

NUMBER 

REFERENCES 

TO 

13960, L 

20 

14530 s B 

30 

1 4560 a B 

40 

13820,L 

50 

1 3810,W 

60 

14540, W 

70 

14640, W 



J-3.256 


TFORCE 

LABEL CROSS REFERENCE MAP 


STATEMENT 

REFERENCES 

NUMBER 



10 

17130, B 


20 

17140, B 


30 

17180, B 


40 

17200, B 

17440, B 

50 

17460, L 


60 

1 7450, B 


70 

1 7480 , L 

17500, L 

80 

17520, L 


90 

1 7240, L 

17270, B 



J-3.257 


THCOE 

LABEL CROSS REFERENCE 

STATEMENT 

NUMBER 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 


REFERENCES 


16320, L 
16420, L 
1 6240,B 
16520, L 
16510, B 
16580, L 
16500, B 
1 6660, B 

16570, B 1 6650 9 B 16690, B 

16450, L 

16250, W 

16300, R 

16390, W 



J-3.258 


TRI40R 

LABEL CROSS REFERENCE MAP 

STATEMENT REFERENCES 

NUMBER 

10 17710, L 17730, L 17750, L 17790, B 

20 18010, L 18030, L 18050, L 18090, L 18130, B 



FRCES 


SUBROUTINES CALLED 
NAME 
NONE 

CALLED BY ROUTINES 
INPUT 


HOUBQN 

SUBROUTINES CALLED 
NAME 

MATMUT(IH,QN2,XP,QL0AD,NEQ) 

SOLVEQ(IH) 

CALLED BY ROUTINES 
SETUP 


HOUBQ1 

SUBROUTINES CALLED 
NAME 

MATMUT ( IH ,QN ,XP ,QLOAD ,NEQ) 
MATMUT ( I H , QN , XP ,QLOAD , NEQ ) 
NRESTR(KY) 

SOLVEQ(IH) 

NRESTR(KY) 


CALLED BY ROUTINES 


LOCATION 


LOCATION 

09960 

10180 


LOCATION 

09170 

09280 

09430 

09450 

09740 


SETUP 



J-3.260 


INPUT 

SUBROUTINES CALLED 


NAME LOCATION 

TRI40R 03210 
NLTERM(O) 03360 
FRCES(IELM,ALPHK,IB) 04320 
THCOE ( IELM , IB ) 04510 
TFORCE(IELM,IB) 04520 


CALLED BY ROUTINES 

MAIN 

SETUP 


MAIN 

SUBROUTINES CALLED 


NAME LOCATION 

INPUT ( 1 ) 0470 
INPUT ( 2 ) 0670 
NLTERM(ITAM) 0740 
SETUP(ITAM, TIME, LARGE) 0690 


CALLED BY ROUTINES 
NONE 

MATMUT 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 
H0UBQ1 
HOUBQN 



NLTERM 

SUBROUTINES CALLED 
NAME 

QPRIME(Il) 

STRESS (II ,ITAM) 

CALLED BY ROUTINES 

MAIN 
INPUT 
SETUP 

NRESTR 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 
HOUBQ1 


LOCATION 

06870 

06930 


QPRIME 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 


NLTERM 



J-3.262 


SETUP 


SUBROUTINES CALLED 


NAME 


LOCATION 


NLTERM(ITAM) 05820 
HOUBQN(KY,IH) 05870 
H0UBQ1 (KY ,IH) 05880 
INPUT(3) 06400 


CALLED BY ROUTINES 
MAIN 


SOLVEQ 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 


CALLED BY ROUTINES 
H0UBQ1 
HOUBQN 


STRESS 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 


NLTERM 



T FORCE 


SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 
INPUT 


THCOE 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 
INPUT 


TRI40R 

SUBROUTINES CALLED 

NAME LOCATION 

NONE 

CALLED BY ROUTINES 


INPUT 



FRCES 


SUBROUTINE CALLING ARGUMENTS 

VARIABLE SUBROUTINE LOCATION 

NONE 

HOUBQN 

SUBROUTINE CALLING ARGUMENTS 


VARIABLE 

SUBROUTINE 

LOCATION 

IH 

MATMUT 

09960 

IH 

SOLVEQ 

10180 

NEQ 

MATMUT 

09960 

QLOAD 

MATMUT 

09960 

QN2 

MATMUT 

09960 

XP 

MATMUT 

09960 


HOUBQ1 

SUBROUTINE CALLING ARGUMENTS 


VARIABLE 

SUBROUTINE 

LOCATION 

IH 

MATMUT 

09170 

IH 

MATMUT 

09280 

IH 

SOLVEQ 

09450 

KY 

NRESTR 

09430 

KY 

NRESTR 

09740 

NEQ 

MATMUT 

09170 

NEQ 

MATMUT 

09280 

QLOAD 

MATMUT 

09170 

QLOAD 

MATMUT 

09280 

QN 

MATMUT 

09170 

QN 

MATMUT 

09280 

XP 

MATMUT 

09170 

XP 

MATMUT 

09280 


Preceding pas e blank 1 



J-3.266 


INPUT 

SUBROUTINE CALLING ARGUMENTS 


VARIABLE 

SUBROUTINE 

LOCATION 

ALPHK 

FRCES 

04320 

IB 

FRCES 

04320 

IB 

THCOE 

04510 

IB 

TFORCE 

04520 

IELM 

FRCES 

04320 

IELM 

THCOE 

04510 

IELM 

TFORCE 

04520 

0 

NLTERM 

03360 


MAIN 

SUBROUTINE CALLING ARGUMENTS 


VARIABLE SUBROUTINE LOCATION 

ITAM SETUP 00690 
ITAM NLTERM 00740 
LARGE SETUP 00690 
TIME SETUP 00690 


MATMUT 

SUBROUTINE CALLING ARGUMENTS 

VARIABLE SUBROUTINE LOCATION 

NONE 

NLTERM 

SUBROUTINE CALLING ARGUMENTS 


VARIABLE 

SUBROUTINE 

LOCATION 

ITAM 

STRESS 

06930 

11 

QPRIME 

06870 

11 

STRESS 

06930 



J-3.267 


NRESTR 

SUBROUTINE CALLING ARGUMENTS 

VARIABLE SUBROUTINE LOCATION 

NONE 

QPRIME 

SUBROUTINE CALLING ARGUMENTS 

VARIABLE SUBROUTINE LOCATION 

NONE 

SETUP 

SUBROUTINE CALLING ARGUMENTS 


VARIABLE 

SUBROUTINE 

LOCATION 

IH 

HOUBQN 

05870 

IH 

HOUBQ1 

05880 

ITAM 

NLTERM 

05820 

KY 

HOUBQN 

05870 

KY 

HOUBQ1 

05880 

3 

INPUT 

06400 


SOLVEQ 

SUBROUTINE CALLING ARGUMENTS 

VARIABLE SUBROUTINE LOCATION 


NONE 



J-3.268 


STRESS 

SUBROUTINE CALLING ARGUMENTS 
VARIABLE SUBROUTINE 

NONE 

TFORCE 

SUBROUTINE CALLING ARGUMENTS 
VARIABLE SUBROUTINE 

NONE 

THCOE 

SUBROUTINE. CALLING ARGUMENTS 
VARIABLE SUBROUTINE 

NONE 

TRI40R 

SUBROUTINE CALLING ARGUMENTS 
VARIABLE SUBROUTINE 


LOCATION 


LOCATION 


LOCATION 


LOCATION 


NONE 



DYMASOB II 


J-3.269 


October 1972 


SECTION III 
PROGRAM INPUT 


The DYNASOR II code has been written so that the code can be employed 
by researchers who are not familiar with the inner workings of the 
program. Utilizing the guidelines and adhering to the limitations 
presented in the previous section, it is believed that most users will 
find it relatively easy to employ the code. 

The code is available in the FORTRAN IV language using double 
precision or single prascision arithmetic. This double precision 
version requires a storage space of about 330K bytes on IBM 360/65 
system while the single precision storage space is about 203K bytes. 
Efforts have been made to make this code compatible with a large number 
of computing systems. In particular, adaption of the code for use on a 
CDC 6600 computer requires only minor changes. 

The input data for a run consists of one card I (card types will be 
explained on the following pages) followed by a complete set of data 
(cards II-X) for each case. The set of cards II-X is the input data 
required to generate the response of a shell for a given number of 
harmonics due to a particular loading. The cards comprising the data 
deck for both an initial run and a restart are schematically represented 
in Fig. 1. The cards specifying the Fourier harmonics, the initial 
conditions, and the boundary conditions are omitted from the input deck 
when using the restart mode. If more than one case is to be run, 
include a set of data for each of the cases. Thera is no limit on the 
number of cases which may be included in a run. A card must be placed 
at the end of the data for the final case. 



INITIAL RUN 


RESTART 



FIG. 1 CONSTITUTION OF OATA DECKS - INITIAL RUN AND RESTART MODES. 


J-3.270 







J-3.271 DYNASOR II 


October 1972 


I- BON CONTROL CARD 


This card is used to identify the number of cases to be run end the 
logical unit numbers of the scratch tapes used in the run. (ONLY ONE 
CARD I IS OSED PER RUN.) 


1 Card Type I Format (315) I 

| Columns Variable Description | 

1 1-5 NCASES The number of different data sets utilized I 

I for this run. j 


i 

6-10 ND Logical unit number of the scratch tape ) 

onto which all the data is read at the | 

start of the run. | 


11-15 NS Logical unit number of a second scratch tape 

used by the program. 


II. CASE IDENTIFICATION CARDS 


These cards allow the user to print out comments which identify the 
problem being run. 


0-3=272 
DYNASOP II 


October 1972 


A- Control Cara (ONE CARD II-A PER DATA SET) 


1 - 

| Card Type 

L 

II-A Format 

(215) | 

r 

i 

) Columns 

( 

Variable 

Description j 

| 1-5 

1 

i 

NCARDS 

Number of comment cards (TYPE II-B) which J 

follow. | 

1 

8 6-10 
1 
1 
I 

I 

NT 

Logical unit number of the tape (prepared j 
by SAMMSOR) from which the stiffness and | 
mass matrices, element properties, and re- 1 
start information, if needed, will be read. I 





B. 


Identification Cards 
printed as output and 
comments should not 
SAMMSOR comments will 
CARDS II-B, OTHERWISE 


- The information punched on these cards is 
should identify the problem being run- These 
duplicate those of the SAMMSOR case since the 
also appear as output. (IF NCARDS=0, OMIT 
INCLUDE NCARDS OF TYPE II-B.) 


i — — 

J Card Type 

II-B Format 

(20A4) 

1 

) Columns 

Variable 

Description 


| 1-80 

COMENT 

Any desired alphanumeric information may be 
printed on these cards. 



J-3.273DYNASOR II 


October 1972 


III. CASE CONTROL CARDS 


A. Control Constants - Tine parameters, restart information, and other 
miscellaneous control constants are input on this card. (INCLUDE ONE 
CARD III- A PER DATA SET.) 


| Card Type III-A Format (2F10. 0,415) 

| Columns Variable v Description 

| 1-10 TOTIME The maximum time (seconds) for which the 

| calculations are to be performed. 


11-20 DELTE Time increment (seconds) used in solving 

the equations of motion. 


21-25 IRSTRT Control constant which indicates if the so- 

lution is being restarted. If the solution 
is being restarted set IRSTRT = 1. If not, 
set IRSTRT = 0. 


26-30 INCRST The number of the time increment at which 

the solution is to be restarted. INCRST 
must be an integer multiple of the value of 
NPRNIT used in the previous run. If IRSTRT = 
0, set INCRST = 0. 


31-35 NCLOSE For a closed shell (such as a spherical cap 

or a hemisphere) where node 1 is at the apex, 
set NCLOSE = 1. Radial and rotational re- 
straints will then be applied for the zeroth 
harmonic to aid the numerical stability of 
the solution. If the shell does not fit the 
above description, set NCLOSE = 0. 


36-40 ITELF If thermal loads are to be applied in the 

program, sat ITELF = 1. Otherwise, set 
ITELF = 0. 


B. Print Control Card - The constants used to control the program 
output are punched on this card. (INCLUDE ONE CARD III-B PER DATA 
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SET.) 


Card Type III-B Format (1015) 


Columns Variable 
1-5 NPRNTQ 


6-10 


IPRINT 


11-15 


NCLCST 


16-20 NSTRSS 


21-25 NPRNT 


26-30 NPRNIT 


31-35 NPRNTL 


1 

j 36-40 NPRNTF 


Description 


If the displacements are to be printed, set 
NPRNTQ = 1. If not, set NPRNTQ = 0. 


If NPRNTQ = 1, the d isplacanents will be 
printed every IPRINT time increments beginning 
with the first time step. If NPRNTQ = 0, 
set IPRINT = 0- 


If the stresses and stress resultants are to 
be calculated, set NCLCST = 1. If not, 
set NCLCST = 0. 


If NCLCST = 1, the stress and stress resultants 
will be calculated and printed every NSTRSS 
time increments beginning with the first step. 
If NCLCST = 0, set NSTRSS = 0. 


If restart information is to be placed on 
tape, set NPRNT = 1. If not, set NPRNT = 0. 


If NPRNT = 1, the restart information will be 
written on the output tape every NPRNIT time 
increments. If NPRNT = 0, set NPRNIT = 0. 

It is suggested that relatively large values of 
NPRNIT be used, say 200, 400, etc., if the total 
number of time steps is relatively large. 


If a printout of the applied loads is desired, 
set NPRNTL = 1. Otherwise, set NPRNTL = 0. 


If a printout of the generalized forces is 
desired, set NPRNTF = 1. Otherwise, set 
NPRNTF = 0. 
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41-45 NPRNTH If the Fourier coefficients for the temperature 

and temperature gradient are to be printed, set 
NPRNTH = 1. Otherwise, set NPRNTH = 0. 


46-50 NPRNHS If the mass and stiffness matrices are to be 

printed, sat NPRNHS = 1. If not, set 
NPRNHS = 0. 
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IV. CIRCUMFERENTIAL ANGLE CARDS 


The circumferential angles at which the displacements and stresses 
are to be calculated are read from these cards. 


km Control Card - (ONE CARD IV-A PER DATA SET.) 


i Card Type IV-A Format { 1 5 ) | 


olumns 

Variable 

Description 

-5 

NTHETA 

The number if circumferential angles at which 
the displacements and possibly stresses are 
to be calculated. (1 S NTHETA < 20) 


B. Circumferential Angles - (INCLUDE 1-3 CARDS IV-B PER DATA SET, 
DEPENDING UPON THE VALUE OF NTHETA.) 


J Card Type IV-B Format (8F10.0) 

1 

] Columns Variable Description 

J 

| 1-10 THETA (1) Circumferential angles at which the displace- 

i meats and possible stresses will be calculated. 

I 

S 

i 11-20 THETA(2) (If it is desired to calculate the displace- 

\ w ” ments only along the line = 0, then include 

I " " one card IV-B and set THETA (1) = 0.0) 

| " THETA (NTHETA) 

9 
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V. FOOBIER HARMONICS CABD 

This card provides the number of Fourier cosine harmonics to be 
imployed for this analysis and enumerates the specific harmonics to be 
used. (IF IRSTRT = 1, OHIT CARD V. OTHERWISE, INCLODE ONE CARD V PER 
DATA SET.) 


1 

I Card Type 

V Format 

(615) j 

J Columns 

Variable 

Description I 

I 1-5 

NH 

The total number of Fourier cosine harmonics | 

to be utilized in this analysis (1 < NH < 5). | 

J 6-10 

| 11-15 

| 16-20 
I 21-25 

J 26-30 

IHARM (1) 
IHARM (2) 
IHARM (3) 
IHARM (4) 
IHARM (5) 

Specific harmonics numbers to be imployed. NH 1 
values must be given and the zero harmonic I 
must always be specified as one of the input | 
harmonic numbers. The user should check to be ) 
certain that the information for each of these j 
harmonics has been created and stored on tape | 
by the SAMMSOR code. J 


Example: Consider a case where 

3, and 4. The input data 
following values: 


it is desired to utilize harmonics 0, 2, 
for card 7 would than utilize the 


NH =4 

IHARH(I) = 0 

IHARM (2) = 2 
IHAR M (3) = 3 
IHARM (4) = 4 


NOTE: IHARM (1) should always 

be set egual to zero. 


Columns 26-30 corresponding to IHAR M ( 5) should be left blank for 
this example since only four harmonics are being run. 
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VI- NODAL RESTRAINT CARDS (Boundary Conditions) 

The displacement constraints applied to the shell are described 
utilizing thes cards. (IF IRSTRT = 1, OMIT CARDS VI-A AND VI-B.) 

A- Control Card - (ONE CARD VI-A PER DATA SET, UNLESS IRSTRT = 1.) 


1 Card Type VI-A Format (15) J 

I 1 

| Columns Variable Description 1 

l ! 

j 1-5 NODRES Total number of displacement constraints to j 

S be applied to the shell (0 < NODRES < 204) I 


B. Boundary Conditions - (THE NUMBER OF CARDS OF TYPE VI-B MUST EQUAL 



NODRES, 

UNLESS IRSTRT = 1 . 

IF NODRES = 0, OMIT CARDS VI-B.) 

1 

| Card Type 

VI-B Format (215) 


« 

1 

1 

1 

Columns 

Variable 


Description 

I 

1 

| 

1-5 

NP 

Number of the node where the restraint is to 
be applied. 

I 

1 

6-10 

NDIRCT 

Key used 

to indicate the degree of freedom 

1 

1 

I 



which is 

restrained. 



NDIRCT = 

1 applies axial restraint 

S 



NDIRCT = 

2 applies circumferential restraint 

1 



NDIRCT = 

3 applies radial restraint 

3 

! 



NDIRCT = 

4 applies rotational restraint 

6 
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VII. INITIAL CONDITIONS CARDS 


The initial velocities and displacements of the nodes are specifies 
on these cards. (IF IRSTRT = 1, OMIT CARDS VII-Z, VII-B, AND VII-C.) 


A. Control Card - Utilization of this control card greatly simplifies 
the specification of the initial conditions if either the initial 
velocities or the initial displacements, or both, are egual to zero. 
(ONE CARD VI I- A PER DATA SET) 


| Card Type 

VII- A Format (215) 1 

| Columns 

Variable 

Description J 

| 1-5 

IQN 

If the initial velocities at all the nodes | 

are zero, set IQN = 0. If not, sat IQN = 1. I 

| 6-10 

IQN 1 

If the initial displacements ar all the nodes | 
are zero, set IQN1 = 0. If not, sat IQN1 = 1. J 

, 


. 


B. Initial Velocities - The initial nodal velocities roust be specified 
for each node of the shell for each harmonic to be run. The logic 
used to input the nodal velocities is essentially the same as the 
procedure used to specify the element properties in the SAMMSOR 
code. The initial velocities for each of the nodes are specifies 
for the first of the input harmonics, then for the second input 

harmonic, etc. This process is repeated until the nodal velocities 
for the first of the input harmonics, then for the second input 

harmonic, etc. This process in repeated until the nodal velocities 
for each harmonic have been specified. (IF IQN = 0, OMIT CARDS 
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VII-B.) 


1 Card Type VIX-B Format 

I 

j Columns Variable 

1 


(215, 4F10.0) 1 

I 

Description | 


\ 1-5 INI 

J 

I 


First node to which the velocities specifies 
on this card are applied. 


I 

J 6-10 
i 
1 
1 

I 11-20 

I 

I 

I 

1 21-30 

8 
i 
I 

8 31-40 

« 

I 

i 

| 41-50 

J 

i 


IN2 



Last node to which the velocities specified 
on this card are applied. 


Initial nodal velocity in the axial direction 
for a particular harmonic. 


Initial nodal velocity in the circumferential 
direction for a particular harmonic. 


Initial nodal velocity in the radial direction J 
for a particular harmonic. 1 


Initial nodal rotational velocity in the meri- 
dional direction for a particular harmonic. 




C 


Initial Displacements - In identically the same manner as is 
utilized for the initial velocities, the initial displacements are 
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specified for each harmonic. (IP IQN1 = 0, OHIT CARDS VII-C) 


r — 


I Card Type VII-C Format (215, 4F10.0) 


Columns Variable 


6-10 


11-20 


21-30 


31-40 


41-50 


Description 

First node to which the displacements specified 
on this card are applied. 


Last node to which the displacements specified 
on this card are applied. 


Initial nodal displacement in tne axial direc- 
tion for a particular harmonic. 


Initial nodal displacement in tne circumferen- 
tial direction for a particular harmonic. 


Initial nodal displacement in the radial 
direction for a particular harmonic. 


Initial nodal rotation in the meridional 
direction for a particular harmonic. 
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VIII. COEFFICIENTS OF THERMAL EXPANSION 

If the thermal effects are to be include! in the analysis, the 
coefficients of thermal expansion oust be specified using these cards. 
These coefficients are assumed to be constant for a given element but 
may vary from element to element. These coefficients are read in the 
same manner as the element properties in the SAMMSOR coda. (THE NUMBER 
OF CARDS VIII MUST BE < NELEMS FOR ANY GIVEN DATA SET. IP HELP = 0, 
OMIT CARDS VIII.) 


s Card Type VIII Format (2l5 r 2F10.0) 

I 

] Columns Variable Description 

i 

I t-5 IELM1 Number of the first element to which the 

1 properties on this card apply. 


6-10 IELM2 Number of the last element to which the 

properties on this card apply. 


11-20 ALSI1 Coefficient of thermal expansion in the 

meridional direction (in/in/deg) . 


a 

| 21-30 ALTI1 Coefficient of thermal expansion in the 

I circumferential direction (in/in/deg). 
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IX- APPLIED LOADS, TEMPERATURES, AND TEMPERATURE GRADIENTS 


Since the concentrated nodal loads, distributed pressures, tempera- 
tures, and temperature gradients may vary in time; it may be necessary 
to specify these loads at a number of points in time. If these loads 
and temperatures are input at times T1.j and T1 • -i • t ^ ie program will 
calculate generalized forces due to these loads at each of the input 
times. A linear variation of the generalized forces is then assumed 
betweed the times the loads are input. As soon as the value of the time 
reaches T1 -j + ], a new set of loads is read in at Tl -j+2 and the process of 
calculating the generalized forces is repeated. The time increment, 
DELTE (CARD III-A) , used in the solution of the equations of motion must 
be less than the difference between any too of the times at which the 
loads are specified. If the loads and/or temperatures propagate in and 
direction (moving loads), it is advisable to specify the loads at more 
times than is necessary if they vary in intensity only. 

Ring loads can be applied at the nodes and must be input for each of 
the harmonics. The ring loads utilize the same sign convention employed 
for the shell nodal displacements. 

The pressure loadings, temperatures and temperature gradients are 
assumed constant over the meridional length of the element but varia- 
tions in the circumferential direction are aLlowed. These loadings may 
be input in one of two ways. Either the Fourier coefficients can be 
specified for each harmonic or the values of the loads may be specified 
at a number of circumferential angles around the shell elements. 
Utilizing this second procedure a step function variation is assumed in 
tne circumferential direction. That is, the load is assumed constant 
from Oj to Oi+yith the value of the loads being equal to those specified 
at 0^. Sign conventions for the pressure loading are given in Figure 2. 

A control card (Card Type IX-A) containing several key variables is 
used to guide the reading of the loading conditions. Proper selection 
of the values of these key variables results in a highly efficient 
procedure for specifying a wide variety of loading conditions. The key 
words and their meanings are explained in Figure 3. 

Before attempting to input loads to the code the user is advised to 
study the guidelines presented in Section II, the example problems of 
Section II, and Appendix 6 which presents a thorough discussion of the 
various procedures necessary for specifying the loads. 


A. Load Control Card 


This control card is utilized to direct the input of the loads for a 
given time. This card indicates the presence or absence of concentrated 
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forces and distributed pressure loadings and indicates the procedure to 
be utilized for creating the generalized thermal forces. {ONE CARD ix-A 
IS NECESSARY 'FOR EACH TIME AT WHICH THE LOADS ARE BEING INPUT.) 


5 Card Type IX-A Format {F10.0, 415, A8) 


Columns Variable 


1-10 


11-15 


16-20 


IDELF 


21-25 


IDCOE 


26-30 


ITCOE 


31-38 CONSTF 


Description 

The time for which the loads are being 
input (sec). 


If concentrated ring loads are applied to 
the structure at time Tl, set NCF = 1. If 
not, set NCF = 0. 


If distributed loads are to be applied to 
the shell at time Tl, set IDELF = 1. If 
not, set IDELF = 0. 


If the Fourier cosine coefficients for the 
distributed loadings are to be read in at time 
T1 # set IDCOE = 1. If not, set IDCOE = 0. 


If the Fourier cosine coefficients for the 
temperatures and temperature gradients are to 
be read in at time Tl, set ITCOE = 1. If 
not, set ITCOE = 0. 


If the applied loads, temperatures and temp- 
erature gradients are constant from time, Tl, 
to the final time, T0TIME (CARD III-A) , punch 
the word CONSTANT in columns 31-38. If these 
parameters are not constant, leave columns 
31-38 blank. 
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B. Concentrated Ring Loads 


The concentrated ring loads nast be specified for each harmonic. (IF 
NCF = 0 , OMIT CARDS IX-B.) 


1. Control Card - This card indicates the presence or absence of 
concentrated ring loads for a particular harmonic. (ONE CARD IX-B-1 
FOR EACH HARMONIC.) 


J Card Type IX-B-1 Format (15) 

) Columns Variable Description 

I 1-5 NCF 1 If there are concentrated ring loads for this 

I particular harmonic, set NCF 1 = 1. If not, 

1 set NCF1 = 0. 
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2. Concentrated Ring Loads - For harmonics having ring loads associated 
with them, the loads are specified using these cards. (IF NCFl = 0, 
OMIT CARDS IX-B-2 FOR THE HARMONIC BEING CONSIDERED.) ONE OR MORE 
CARDS IX-B-2 MAY BE USED, BUT NEVER UTILIZE MORE THAN 51 PER 
HARMONIC. 


1 Card Type IX-B-2 Format (215, 4F10.0) 


Columns 

1-5 

Variable 

INI 

Description 

First node to which this loading applies. 

6-10 

IN2 

Last node to which this loading applies. 

11-20 

F 1 

Axial ring load applied at a node (lb).* 

21-30 

F2 

Circumferential ring load applied at a 
node (lb) . * 

31-40 

F 3 

Radial ring load applied at a node (lb).* 

41-50 

F4 

Concentrated moment applied at a node (in 


Examples: The use of cards IX-B should become clear after considering 

the following examples: 

1. Consider the case where a uniform tensile ring loading of 100 
psi is being applied in the axial direction to the first node of 
a cylinder. The solution for this problem has been presented in 
Figure 20 of Reference 31 The thickness of the cylinder is 0.1 


* The total value of the ring load for each harmonic is input, not the 
load per unit length of circumference. For complicated ring loads the 
value of the load input for each harmonic is obtained by intergrating 
the product of the load and the corresponding displacement function 
around the circumference. 
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inches with the radius being given as 6 inches. Consider that 
harmonics 0 and 2 are being run. The total ring load for the 
zero harmonic will be (100) x 2 tt ( 6 ) x (0.1) = 376.9 lb. 


Five cards of type IX are required to input these loads assuming 
they are constant from time T1 = 0.0 to T0TIME and assuming 50 elements 
are used to idealize the structure. 


CARD VARIABLE VALDES 

IX-A T 1 = 0.0 NCP = 1 IDELP = IDCOE = ITCDE = 0 

IX-B NCF1 = 1 (HARMONIC 0) 

IX-C INI = 1 IN 1 = 1 FI = -376.9 P2 = P3 = P4 = 0 

IX-C INI =2 INI = 51 PI = F2 = F3 = P4 = 0 


IX-B NCF2 = 0 (HARMONIC 2) 


2. The second example considers a radial ring load of F cosO 
applied to a cylinder of radius r. 


Performing the integration, one obtains the radial ring load for 
harmonic 1 as 

2tt 

F3 = / (F cose)rcosGd0 
0 

=TrrF 

The Fourier coefficients for the other harmonics ace zero. 

C. Distributed Loads - (IP IDELP = 0, OMIT CARDS IX-C) 


The distributed loadings may be input in one of two ways: the Fourier 
coefficients may be read in for each harmonic or the loadings may be 
specified at a desired number of circumferential angles ( < 37). If the 
second option is used, the Fourier coefficients will then be generated 
internally. The user should note that it is possible to input 
distributed loads in only one of two ways. 
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1« Distributed Loads - (Input at various circuaf eran tial angles) 
Since the choice of the displacement functions utilized in this 
analysis necessitate the presence of loads symmetric about the 
meridian 0=0, it is necessary to specify the distributed 
loadings for angles from 0° --> 180°. The code then assumes 
that the distribution from 180° — > 360° is the mirror image of 
the input distribution. (IF IDCOE = 1, OMIT CARDS IX-C-1) 

a. Control Card - Utilize this card to indicate the number of 
angles for which the loads will be specified. 


J Card Type IX-C-1-a Format (315) 
l 

I 

j Columns Variable Description 

I 

| 1-5 I EL HI First element to be distributed 

| loading applies. 


6-10 IELH2 Last element to which this distributed 

loading applies. 


11-15 NDP Number of circumferential angles at which the 

distributed loads are to be specified 
(1<NDP<37). If the loadings are constant in 
the circumferential direction sat NDP = 1. 



b. Distributed Loads at specified Angles* This card specifies the 
angle at which the loads are being input and provides the 
values of the loads at that angle. (INCLUDE NDP CARDS OF 


* The first loading must always be given for 0 = D®. The next loading 
is given at the angle where the load changes in value. If the load is 
constant with respect to 0 , only one card will be necessary to input the 
load. Do not input values for the loads at 0 = 180° since the load at 
that angle will be equal in all cases to the Load input at the previous 
value of THETAB. 
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TYPE IX-C-1-b FOR EACH CARD IX-C-1-a.) 


j Card Type IX-C-1-b Format (4F1Q.0) 


Columns Variable 
1-10 THETB 


11-20 


21-30 R 


1 31-40 S 


Description 


THETB Circumferential angle (degrees) for which this 

data is given. 


Distributed load in the meridional 
direction (psi) . 


Distributed load in the normal direction (psi) 


Distributed load in the circumferential 
direction (psi) . 




Example; Consider the normal pressure distribution on an 
element depicted in Figure 4. To input the pressure on this 
element requires specification of the pressures for four values 
of '0. 


THETB 

R(I) 

o 

* 

o 

-Q1 

30.0 

-Q2 

90.0 

-Q3 

2.0 

0.0 


Distributed Loads - (Fourier Coefficients) The Fourier coeffi- 
cients for the distributed loads mey be specified using these 
cards. The coefficients must be specified (even though they may 
be zero) for each harmonic being empLoyed in the analysis. The 
coefficients are specified for each harmonic of the first group 
of elements, then for each harmonivC of the second group, etc. 
until the values have been input for all the elements. (ip 
IDCOE = 0, OMIT CARDS IX-C-2) 
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a. Control Card 


8 Card Type IX-C-2-a Format (215) | 

8 I 

1 Columns Variable Description | 

I 1 

| 1-5 XELH1 First element to which these loads apply. | 

I I 

1 I 

J 6-10 IELH2 Last element to which these loads apply. I 

I I 


b. Fourier Coefficients - (NH CARDS OF TYPE IX-C-2-b FOR EACH 
CARD IX-C-2-a. ) 


| Card Type IX-C-2-b 


Columns Variable 


1-10 


1 1-20 


21-30 


R 


Format (3P10.D) 


Description 

Fourier coefficient of the distributed load 
in the meridional direction for a particular 
harmonic (psi) . 


Fourier coefficient of the distributed load 
in the normal direction for a particular 
harmonic (psi) . 


Fourier coefficient of the distributed load 
in the circumferential direction for a parti- 
cular harmonic (psi). 


D. Temperature Distribution and Gradients 


Essentially the same logic is employed for inputting the temperatures 
and gradients that was used for the speci f ica tion of the distributed 
loads. The explanation of this procedure should therefore not need be 
repeated. 
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The temperatures are specified for the midsurface of the shell. The 
temperature gradients (through the thickness) are considered positive if 
the temperature for the outer surface is greeted than the temperature on 
the inner surface. (IF ITELF = 0, OMIT CARDS IX-D.) 

1. Temperature Distribution and Gradients - (Input at various 
circumferential angles) 

Again, the requirement of symmetry about the meridian 0 = 0, makes it 

necessary to specify the temperature distribution and thermal gradients 
only from 0° --> 180°. The temperature distribution and gradients are 
input on the same cards for the various angles. (IF ITCOE = 1, OMIT 
CARDS IX-D- 1. ) 

a. Control Card - Utilize this card to indicate the number of 
angles for which the temperature and gradients will be 
specified. 


| Card Type 

f _ 

IX-D-1-a 

Format (315) 1 

r 

| Columns 

Vac iable 

Description J 

| 1-5 

IELM1 

First element to which this data applies. J 

| 6-10 

I EL M2 

Last element to which this data applies. j 

| 11-15 

NDP 

Number of circumferential angles at which the | 
temperature distribution and gradient are to ) 
BE SPECIFIED (1 < NDP < 37). If the temperature | 
is constant in the circumferential direction, J 
set NDP = 1. ! 

[ 


. 


Temperature and Temperature Gradient at Specified Angles - 


This card specifies 
gradient (through 
of the temperature a 


the angle at wh 
the thickness) 
t that angle. 


ich the temperature and temperature 
is being input and provides the value 
(INCLUDE N DP CARDS OF TYPE IX-D-lb 
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POR EACH CARD IX-D-1-a. ) 


I Card Type IX-D-1-b Foriaat (3F10.0) 


I 


Description 


| Columns Variable 

i 

| 1-10 THETB Circumferential angle for which this tempera- 

| ture and gradient are given. 

I 

I 

| 11-20 P Distributed temperature at 0 = THETB (°F) . 

I 

I 

j 21-30 R Temperature gradient {through the thickness) 

| at Q = THETB (°F/in) . 

i 


2. Temperature Distribution and Sradient - (Fourier Coefficients) 


If the user so desires, the Fourier coefficients for the temperature 
distribution and gradient may be specified for each of the harmonics 
being used. Again, the coefficients are specified for all harmonics for 
the first group of elements, then for the second group, etc., until all 
the element coefficients have been input. (IF ITCOE = 0, OMIT CARDS 
IX-D-2) 

a. Control Card 


J Card Type IX-D-2-a Format (215) 

I 

) Columns Variable Description 


1 1-5 I ELM 1 First element to which these properties apply. I 

1 1 

f I 

t 6-10 IELM2 Last element to which these properties apply. 1 

I 

b. Fourier Coefficients - (NH CABDS OF TYPE IX-D-2-b FOR EACH 
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CARD IX-D-2-a. ) 


| Card Type IX-D-2-b Format (2F10.0) 

I Columns Variable Description 

I 1-10 TH1 Fourier coefficient of the temperature distri- 

I bution (°F) for a particular harmonic. 


11-20 DTH1 Fourier coefficient of the te.mperatura gradient 

(°F/in) for a particular harmonic. 



X. FINAL DATA CARD FOR A CASE 


Place this card after the last card IX of each data set. This 
signifies the end of the input data for a case. (ONE CARD X PER DATA 
SET.) 


| Card Type X | 

I I 

| Columns Punch | 

I I 

J 1-11 END OF CASE I 



XI. FINAL DATA CARD FOR A RUN 


This card must be placed after the card X of the last case to be run. 
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It denotes the end of the input data for a run. (ORE CARD XI PER ROH) 


I Card Type XI | 

I I 

| Coluans Punch J 

I I 


1-10 


END OF RUR 
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BXAMPLB PROBLEMS 

The example problems which follow were chosen to demonstrate the 
versatility of the code and to further acquaint the users with the 
procedures for inputting the data to the code. The data presented 
herein is typical for the problems solved by the code and demonstrates 
many of the input procedures. 

Since the most complex portion of the input data is the specification 
of the loading conditions, a variety of loadings are demonstrated. 
Response curves are presented so the user may check his output with thhe 
previously obtained curves. The first two example problems utilize the 
shells described in example problems 1 and 2 of the SAMWSOR user's guide 
(Ref. 1) while the third example problem demonstrates the two procedures 
for specifying distributed pressure loadings. 


Example Problem 1 

The first example problem was chosen to demonstrate the procedure for 
inputting a concentrated ring load and to demonstrate the program's 
capability to solve highly nonlinear problems. For the forty pound load 
applied in this problem, the static solution shows that the nonlinear 
displacement is more than four times as large as the linear solution. 

The shell to which the load is applied is the shallow spherical cap 
(1=6) utilized in the first example problem in the SAMM50R user's guide. 
The edges of the shell are assumed to be clamped. Since the loading is 
symmetric, the displacements and stresses will be calculated only along 
the line 0=0. Only the response for the zeroth harmonic will be 
determined. A set of input data for this case is presented in Figure 5 
with the displacement response of the apex of the shell being presented 
in Figure 6. This response curve should allow the user to check his 
version of the code. 


Example Problem 2 

The shell described in the second example problem in the SAMMSOR 
user's guide is now subjected to a 50 psi internal pressure. The 
load-in is applied at time T1 = 0.0 and remains constant for the 
duration of the calculation. 

Two sets of input data are provided for this example problem. The 
first set (Figure 7) allows the program to calculate the response for 
the first 300 time steps. The second set of input data (Figure 8) will 



INPUT DATA - EXAMPLE PROBLEM 1 


o 

s 


NCASE= 1 

PRINTOUT OF INPUT DATA 

CARO 10 20 30 40 50 60 70 80 

TYPE 1 23456789012345678901 23456789012 345678901 2 34567890123456789012345678901234567890 

II - A 6 4 

_ g ******************************************************************************** 

- B EXAMPLE PROBLEM NO. 1 DYNASOR II USFR'S MANUAL 

- g THE SHELL DESCRIBED IN EXAMPLE PROBLEM 1 OF THE SAMMSOR USER'S GUIDE 

- B IS SUBJECTED TP A 40 LB. APEX LOADING WITH THE SOLUTION BEING DETERMINED 

- B FOR 400 TIME STEPS 

_ g ******************************************************************************** 

III - A 0.0001 .00000025 0 0 1 0 

- B 14 18 1 100 110 1 

IV - A 1 

- B 0-0 

V 10 

VI - A * 

- B 31 1 

- B 31 2 

- B 31 3 

- B 31 4 

VII - A 0 0 

IX - A 0.0 100 OCONSTANT 

- B - 1 1 

- 2 1 1 *0.0 0.0 0.0 0.0 

- 2 2 31 0.0 0.0 0.0 0.0 

X END OF CASE 
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W/H AT APEX 



TIME (MICROSECONDS) 

FIG. 6 APEX DISPLACEMENT RESPONSE UNDER 
CONCENTRATED AXIAL LOAD 
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INPUT DATA - EXAMPLE PROBLEM 2 


NCA SEs 2 

PRINTOUT OF INPUT DATA 

CARD 10 20 3 0 40 50 60 70 80 

TYPE 12345678901234567890123456789012345678901234567890123456789012345678901234567890 

II - A 6 8 

_ g ******** *#*««# ****************************************************** ********$*** 

- B EXAMPLE PROBLEM NO. 2 OYNASOR II USER"S MANUAL 

- B CAP-TORUS-CYLINDER CONFIGURATION 

- B THE SHELL DEPICTED IN THE SECOND EXAMPLE PROBLEM OF THE SAmMSOR USER«S 

- B MANUAL IS SUBJECTED TO A 50 PSI INTERNAL PRESSURE 

_ g **** ******************************************************************** ******** 

III - A 0.0009 0.000003 0 0 1 0 

- B 1 10 1 20 1 100 1 1 0 1 

IV - A 1 

- B 0.0 

V 10 

VI - A 

- B 51 1 

- B 51 2 

- B 51 3 

- B 51 4 

VII - A 0 0 

IX - A 0.0 0 1 0 OCONSTANT 

- C -1-a 1 50 l 

•t) 0 • C 0#0 50.0 0#0 

x END OF CASE 
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INPUT DATA - EXAMPLE PROBLEM 2 - RESTART MODE 



NCASe* 3 


CARD 

TYPE 


printout of input data 

10 20 30 40 50 60 70 80 

12345678901234567890123456789012345678901234567890123456789012345678901234567890 


II - A 

- B 

- B 

- B 

- B 

- B 

- B 
III - A 

- B 
IV - A 

- B 

IX - A 

- C 


6 8 

************** *** ******** * ************* ************ ** ************* ************** 
example problem no. 2 dynasor ii user's manual 

The INPUT DATA NECESSARY TO RESTART THE CODE AT time INCREMENT 300 
IS PROVIDED TO GUIOE THE USER IN HI S RESTART OPERATIONS. THE PROBLEM 
IS TO BE RUN FOR AN ADDITIONAL 300 TIME INCREMENTS. 
**************************** **************************************************** 
0.0018 0.000GC3 1 300 1 0 

l 1C 1 20 1 100 1 1 0 0 

l 

0.0 

0.0009 010 OCONSTANT 

1 ^ 1 n 5 ° 1 

_b O.o 0.0 50.0 0.0 

END OF CASE 
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-.002 


-004 


-.006 


-.008 



TIME (MICROSECONDS) 


FIG. 9 DISPLACEMENT RESPONSE UNDER INTERNAL PRESSURE 
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restart the code at the end of the 300th time step and will then allow 
the program to calculate the response for an additional 300 increments. 

Since this problem is only moderately nonlinear, it is interesting to 
note that a much larger time step can be used for this problem than was 
employed in the previous example problem. The displacement response 
obtained for this problem is presented in Figure 9. 


Example Problem 3 

This example problem was selected to demonstrate the procedures for 
inputting the distributed loadings on a shell. A cylindrical shell 
(figure 10) is subjected to a half cosine loading which is symmetric 
about the meridian = 0. This load is applied along the entire length of 
the shell. The pressure loading may be specified in one of two ways: 


1) The Pourier coefficients may be input for each harmonic. 


2) The pressure may be specified at various circumferential 
angles with the Fourier coefficients then being internally 
generated. 


The first set of input data (Figure 11) utilizes the first of the 
above procedures and inputs the Fourier coefficients. The input data 
presented in Figure 12 describes the loading by specifying the value of 
the pressure at the various angles. The same procedure is employed to 
describe the temperature and temperature gradient distributions. 

Considering the symmetry of the loading and the boundary conditions 
applied to this shell, it can easily be recognized that the displace- 
ments and stresses will be symmetric about the center of this cylindric- 
al tube. Therefore, only one-half of the shell needs to be analyzed. 
The plane of symmetry is assured by applying an axial and a rotational 
restraint at node one (1). 
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Node I Node 21 



FIG 10 CYLINDRICAL SHELL SUBJECTED TO HALF 
COSiNE PRESSURE LOADING 



EXAMPLE PROBLEM 3 


NCASE= 5 


PRINTOUT OF INPUT DATA 


lO 


CARD 10 20 30 40 50 60 70 80 

TYPE 12345678901234567890123456789012345678901234567890123456789012345678901234567890 


-o 

a 


o 

3 > 


GO 

m 


i 


II - A 

6 

4 



- B 

******************************************************************************** 

- B 


EXAMPLE PROBLEM NO. 3 DYNASOR II USER'S MANUAL 

- B 

CYLINDRICAL SHELL 

IDEALIZED USING 30 ELEMENTS IS SUBJECTED TO A HALF COSINE 

- B 

loaoing 

TO DEMONSTRATE THE OPTIONS FOR INPUTTING DISTRIBUTED LOADS. 

- B 

** IN 

THIS 

CASE THE PRESSURE IS SPECIFIED BY INPUTTING THE FOURIER COEFFICIENTS 

- B 

************************************************************ ********** ********** 

III - A 

0. 

0005 

0.00001 

0 0 0 0 

- B 

1 

5 

1 10 

l 50 1 1 0 1 

IV - A 

2 




- B 


0.0 

30.0 


V 

5 

0 

l 2 

3 4 

VI - A 

6 




- B 

1 

1 



- B 

1 

4 



- B 

21 

1 



- B 

21 

2 



- B 

21 

3 



- B 

21 

4 



VII - A 

0 

0 



IX - A 


0.0 

0 1 

l OCONSTANT 

- C 

- 2- al 

20 




- b 

0.0 

-3.1831 

0.0 


- b 

0.0 

-5.0000 

0.0 


- b 

0.0 

-2.1221 

0. 0 


- b 

0.0 

0.0000 

0.0 


- b 

0.0 

0.4244 

0.0 

X 

END OF 

CASE 


. < 
f 
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PRINTOUT OF INPUT DATA 
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NCASE* 4 


CARD 

TYPE 

II - A 

- B 

- B 

- B 

- B 

- B 

- B 
III - A 

- B 
IV - A 

- B 
V 

VI - A 

- B 

• B 

- B 

- B 

• B 

- B 
VII - A 

IX - A 

- C 


X 


10 20 30 40 50 60 70 80 

12345678901234567890123456789012345678901 234567890123456789012345678901234567890 

t 

6 4 

******************************************************************************** 

EXAMPLE PR08LEM NO, 3 DYNASOR II USER'S MANUAL 

CYLINDRICAL SHELL IDEAL1ZE0 USING 30 ELEMENTS IS SUBJECTED TO A HALF COS INE,n 
LOADING TO DEMONSTRATE THE OPTIONS FOR INPUTTING DISTRIBUTED LOADS. 

** IN THIS CASE THE PRESSURE IS SPECIFIED AT VARIOUS CIRCUMFERENTIAL ANGLES ** 

***************** **************************** *********************************** 



0 

.0005 

0.00001 


0 0 

0 0 


1 

5 

1 

10 


1 50 

1 1 


2 









0.0 


30.0 





5 

0 

1 

2 


3 4 



6 








1 

1 







1 

4 







21 

1 







21 

2 







21 

3 







21 

4 







0 

0 








0.0 

0 

1 


0 OCONSTANT 

- a 

1 

20 

37 





- b 


0.0 


0.0 

- 

9.9976 

0.0 

- b 


2.5 


0.0 

• 

9.9786 

0.0 

- b 


5.0 


0.0 

- 

9.9406 

0.0 

- b 


7.5 


0.0 

•- 

9.8836 

0.0 

- b 


10.0 


0.0 

- 

9.8079 

0.0 

- b 


12.5 


0.0 

- 

9.7134 

0.0 

- b 


15.0 


0.0 

- 

9.6005 

0.0 

- b 


17.5 


0.0 

- 

9.4693 

0.0 

- b 


20.0 


0.0 

- 

9.3201 

0.0 

- b 


22.5 


0.0 

- 

9.1531 

0.0 

- b 


25.0 


0.0 

- 

8.9687 

0.0 

- b 


27.5 


0.0 

- 

8.7673 

0.0 

- b 


30.0 


0.0 

- 

8.5491 

0.0 

- b 


32.5 


0.0 

- 

8.3147 

0.0 

- b 


35.0 


0.0 


3.0644 

0.0 

- b 


37.5 


0.0 

- 

7.7988 

0.0 

- b 


40.0 


0.0 

- 

7.5184 

0.0 

- b 


42.5 


0.0 

- 

7.2236 

0.0 

- b 


45.0 


0.0 

- 

6.9151 

0.0 

- b 


47.5 


0.0 

- 

6.5935 

0.0 

- b 


50.0 


0.0 

- 

6.2592 

0.0 

- b 


52.5 


0.0 

- 

5.9131 

0.0 

- b 


55.0 


0.0 

- 

5.5557 

0.0 

- b 


57.5 


0.0 

- 

5.1877 

0.0 

- b 


60.0 


0.0 

- 

4. 8059 

0.0 

- b 


62.5 


0.0 

- 

4.4229 

0.0 

- b 


65.0 


0.0 

- 

4.0275 

0.0 

- b 


67.5 


0.0 

- 

3.6244 

0.0 

- b 


70.0 


0.0 

- 

3.2144 

0.0 

- b 


72.5 


0.0 

- 

2.7983 

0.0 

- b 


75.0 


0.0 

- 

2.3769 

0.0 

- b 


77.5 


0.0 

- 

1.9509 

0.0 

- b 


80.0 


0.0 

- 

1.5212 

0.0 

- b 


82.5 


0.0 

- 

1.0887 

0.0 

- b 


85.0 


0.0 

- 

0.6540 

0.0 

- b 


87.5 


0.0 

- 

0.2181 

0.0 

- b 


90.0 


0.0 


0.0000 

0.0 


ENO OF CASE 


Fig. 12 INPUT DATA - (SET #2) - EXAMPLE PROBLEM 3 
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Ose of the Restart Option 

In order for efficient use to be made of the DYNASOR II code, the 
user should become familiar with the option provided for restarting the 
program. Through effective use of this option the dynamic response 
studies can be completed using a minimum amount of computer time. 

Ose of the restart option may prove invaluable in a number of 
situations. Abnormal termination of the program may occur if a 
numerical instability is noted in the response. If this occurs, the 
restart option can be used with a different value of the time increment. 
Another important use of the restart option arises when the user is 
satisfied with the results previously obtained but desires to extend the 
response data to a further point in time. In such a case the program is 
restarted at the last time step for which the restart information was 
placed on tape. A most effective use of this option can be made when 
conducting dynamic stability analyses where it is desirable to evaluate 
the response to see if buckling has occurred. If it has not, the 
decision can then be made to extend the run to further points in time. 

Utilizing large time steps can result in a damping effect upon the 
solution so it is advisable to run the problem for a couple of 
oscillations, check to see if the solution is significantly damped, and 
then run the problem for the desired number of oscillations. If an 
evaluation of the initial results indicates that a smaller or larger 
time step should be used, the restart facility might be used to keep 
from having to repeat the initial calculations. 

The displacements, velocities, and forces should be written on tape 
for almost all of the cases to insure that the restart information will 
be available if an evaluation of the calculated response indicates that 
the program should be restarted. The time reguired to write the restart 
information on tape is negligible when compared with the amount of time 
reguired to obtain the total response. 

If it is desirable to decrease the time increment when restarting the 
program, the user should exercise care in selection the increment 
(INRS T) at which the program will be restarted. The decision to 
decrease the size of the time step will nsually be based upon the 
observation that the solution has become unstable or that significant 
damping is present in the response. To restart the program the user 
must be sure that the increment (IN3RST) has been selected small enough 
to insure that the inaccuracies created by the larger time step can be 
neglected. 

On the other hand, if the results from a previous run indicate that 
it is possible to increase the size of the time stip for the remaining 
calculations, then care must also be taken in the selection of INZRSr.- 
por the numerical extrapolation procedure to produce accurrate sets of 
displacements, it is recommended that the solution be restarted on a 
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relatively straight portion of the displacement response curve. Consid- 
ering the curve presented in Figure 6, it would be recommended that the 
program be restarted at 500 microseconds rather than at 600 microseconds 
because of the extrapolation procedure being utilized (i.e. the curve 
is smoother at 500 microseconds) . 

When using the restart option, it is possible to specify different 
values for a number of the control constants and input parameters. The 
data on cards I-IV may be changed, but the same Fourier harmonics and 
boundary conditions must be used. It is alo required that the 
coefficients of thermal expansion remain the same when restarting the 
program. These requirements allow the user to omit card types V, VI, 
and VII vhen preparing data for restart operations. The considerations 
effecting the input of the loads for restart operations are presented in 
Appeadix 6. 



